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ABSTRACT 

A  binary  collision  simulation  of  the  radiation  damage  problem  is 
proposed.    Energy  thresholds  and  parameter  adjustment  are  discussed. 
Preliminary  results  show  strong  focusing  in  the  (110)  direction  and 
weaker  focusing  in  the  (100)  direction. 

Although  not  complete,  the  model  is  expected,  with  suggested 
modifications,  to  adequately  represent  the  radiation  damage  problem. 
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1 .      Introduction 

The  interaction  of  energetic  particles  with  matter  may  be  divided 
into  two  energetic  regions  of  interest: 

1)  High  energy  events  in  which  interactions  are  primarily 
inelastic  electronic  processes  of  excitation  and  ionization, 
and 

2)  Low  energy  events  in  which  the  interactions  are  essentially 
elastic  interactions  between  whole  atoms . 

There  is  an  intermediate  energy  range  in  which  both  processes  are  im- 
portant, but  until  the  two  limiting  cases  are  better  understood,  attempts 
to  understand  the  intermediate  range  seem  futile   x      The  threshold  energy 
for  which  electronic  excitation  and  ionization  processes  become  impor- 
tant depends  upon  the  mass  of  the  energetic  particle .    An  approximate 
formula  for  this  threshold  energy  is  E  =  A  kev.  ,  where  A  is  the  atomic 
mass  of  the  energetic  particle.    The  threshold  for  electronic  processes 

seems  to  be  relatively  insensitive  to  the  atomic  mass  of  the  target 

2 

material.      For  metals  this  threshold  is  of  the  order  of  10-100  kev.    The 

high  energy  processes  of  electronic  excitation  and  ionization  have  re- 
ceived considerable  attention  and  are  reasonably  well  understood.    "^ 
We  will  confine  our  attention  to  the  energy  region  below  this  threshold 
for  inelastic  electronic  processes. 

Many  physical  properties  of  a  material  are  changed  when  the 

7 
material  is  irradiated .      The  Young's  modulus  and  the  electrical 

*   All  footnotes  refer  to  the  bibliography. 
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resistivity  are  among  those  properties  of  materials  which  show  most 
significant  changes  .    For  metals  and  semiconductors,  the  residual 
electrical  resistivity  is  most  sensitive  to  radiation. 

Semiconductors,  for  example,  may  show  changes  in  electrical 
resistivity  of  up  to  four  orders  of  magnitude ,     but  there  is  no  known 
simple  relation  between  the  magnitude  of  the  change  in  electrical 
resistivity  and  the  amount  of  radiative  energy  absorbed  by  a  semi- 
conductor.   Radiation  changes  some  semiconductors  from  n-type  to  the 
p-type . 

The  radiation  damage  problem  involves  chemical  bonding  between 
the  atoms  of  the  target  material  as  well  as  elastic  collisions  between 
atoms.    For  low  energy  collisions,  chemical  bonding  forces  vary  widely 
for  different  atomic  species ,  but  are  of  the  same  order  of  magnitude  as 
the  elastic  repulsive  forces.    Therefore,  to  reduce  the  complexity  of 
the  problem,  we  have  limited  our  investigation  to  simple  crystals  of 
face  centered  cubic  metals,  with  special  emphasis  on  copper. 

Davies,  et  ah  have  developed  a  chemical  technique  for  removing 
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thin  layers  (^  37  A)  from  aluminum  foils.      The  thickness  of  the  layers 
is  easily  controlled,,    The  technique  has  been  widely  used  to  study  the 
range  of  radioactive  ions  in  aluminum.    '^    Ranges  have  been  measured 
for  Cs!37,  Rb86,  Na24,  and  K42.    For  example,  the  mean  range  of 
10.5  kev.  Na24  ions  in  aluminum  was  found  to  be  about  250  Angstroms. 

When  a  metal  is  irradiated  with  heavy  energetic  ions  Q  50  kev.)  a 
significant  number  of  atoms  are  ejected  from  the  target,  through  the  surface 
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which  is  bombarded  by  the  incident  ion  beam.    This  phenomenon  is 
known  as  sputtering .    Under  suitable  conditions  as  many  as  40  atoms  or 
ions  may  be  sputtered  for  each  incident  particle.         Examination  of  the 
angular  distribution  of  sputtered  particles  reveals  definite  preferential 

ejection  in  directions  which  correspond  to  (110),  (100),  and  (111)  lattice 

12-16 
directions . 


2 .      Lattice  Effects 

Whether  a  lattice  atom  leaves  its  original  site  or  not  after  a 
collision  depends  upon  the  energy  absorbed  by  the  atom  and  its  final 
direction  of  motion  with  respect  to  the  lattice .    If  an  energetic  lattice 
atom  does  not  leave  its  site,  it  will  transfer  energy  to  its  neighbors 
through  elastic  collisions  until  thermal  equilibrium  is  reached.    Be- 
cause of  crystalline  structure,  the  dissipation  of  energy  is  expected  to 
be  anisotropic  o    The  only  exception  to  the  eventual  thermalization  of 
the  excess  energy  of  a  bound  lattice  atom  is  the  case  in  which  sufficient 
energy  reaches  a  surface  of  the  material  to  knock  one  or  more  atoms  away 
from  the  surface . 

If  a  lattice  atom  is  given  sufficient  energy  to  leave  its  site  per- 
manently, and  no  other  atom  replaces  the  energetic  atom,  a  vacant 
lattice  site  is  created.    The  surrounding  lattice  atoms  relax  slightly 

toward  the  vacant  site,  but  the  lattice  structure  remains  essentially  the 

17 
same  as  that  of  a  perfect  lattice.        The  energetic  atom  travels  through 

the  lattice  giving  up  energy  through  elastic  collisions  with  the  atoms 

near  its  path  until  it  no  longer  has  sufficient  energy  to  force  its  way 

between  the  atoms  of  the  crystal.    If  there  are  no  vacant  lattice  sites 

near  the  position  at  which  an  energetic  atom  is  brought  to  rest,  it  will 

be  forced  to  occupy  some  position  other  than  a  regular  lattice  site. 

Three  possible  equilibrium  positions  have  been  suggested  for  these 

interstitial  atoms  in  a  face  centered  cubic  crystal:    the  crowdion ,  the 

17 
split  interstitial  pair,  and  the  center  of  a  unit  cell.         The  crowdion 


consists  of  an  extra  atom  in  a  (110)  line  of  atoms      In  the  split  inter- 
stitial pair  configuration,  the  interstitial  shares  a  regular  lattice  site 
with  another  lattice  atom  so  that  each  is  symmetrically  displaced  from 
the  equilibrium  position  in  a  (100)  direction.    An  atom  in  the  center  of 
a  unit  cell  may  also  be  described  as  a  crowdion  in  a  (100)  direction . 
The  lattice  atoms  surrounding  an  interstitial  are  displaced  from  their 
regular  lattice  sites  to  accommodate  the  extra  atom.    More  will  be  said 
about  the  interstitial  configuration  later. 

An  energetic  atom  (knock-on)  may  transfer  essentially  all  of  its 

18 
energy  to  a  single  lattice  atom  in  a  head-on  collision.         In  this  case, 

the  lattice  atom  becomes  the  knock-on,  leaving  a  site  for  the  former 
knock-on  to  occupy.    The  new  knock-on  may,  in  turn,  transfer  essentially 
all  of  its  energy  to  another  atom.    Thus,  a  chain  of  replacements  may 
transport  an  interstitial  to  a  position  which  is  several  times  the  dis- 
tance between  nearest  neighbors  from  the  corresponding  vacancy.    Re- 
placement chains  may  be  cyclic  so  that  the  last  replacement  in  the  chain 

17 
fills  the  initial  vacancy,  leaving  no  vacancies  or  interstitials .        The 

configuration  consisting  of  a  vacancy  and  a  nearby  interstitial,  known 

as  a  Frenkel  pair,  may  be  stable  or  unstable.    The  stability  of  a  Frenkel 

pair  depends  upon  both  the  distance  of  separation  and  the  orientation 

(with  respect  to  the  lattice)  of  the  interstitial  and  the  vacancy. 

19 
Silsbee  has  shown      that  an  isolated  line  of  hard  spheres  may 

focus  and  transfer  energy  along  the  lineo    The  condition  for  focusing 

is  that  s/d<C  cos  8  /  where  s  is  the  distance  between  adjacent  spheres, 


d  is  the  diameter  of  the  spheres ,  and  0  is  the  angle  between  the 
velocity  of  the  first  atom  in  the  line  and  the  line.    The  hard  core 
approximation  (diameter  of  spheres  equal  to  distance  of  closest 
approach  for  a  head-on  collision)  is  useful  in  this  work.    For  reason- 
able repulsive  potentials  such  as  the  Coulomb,  Bohr,  Born-Mayer,  etc  , 
this  modified  model  predicts  a  focusing  effect  below  a  threshold  energy, 
and  a  de-focusing  effect  above  this  threshold  energy.    '    When  the 
Gibson  potential  #2  simulates  copper,  this  model  predicts  focusing  in 
the  (110)  directions  below  about  60  ev.  ,  with  sharp  focusing  below 
about  15  ev.    The  presence  of  adjacent  lines  of  atoms  will  enhance 
the  focusing  effect  found  in  an  isolated  line  of  atoms .    Although  the 
hard  sphere  models  used  to  demonstrate  the  phenomenon  of  energy 
focusing  contain  rather  drastic  assumptions  ,  the  same  sort  of  effect  is 

expected  from  models  based  on  more  realistic  potentials. 

20 
A  channeling  effect  has  also  been  reported.        This  is  the  tendency 

for  an  energetic  atom  traveling  in  a  (110)  or  (100)  direction  to  be  focused 
along  a  (110)  or  (100)  line  that  is  centered  between  surrounding  (110)  or 
(100)  lines  of  lattice  atoms.    The  energetic  atom  may  travel  a  large  dis- 
tance along  a  channel  compared  to  the  distance  it  would  travel  in  some 
other  direction.    The  rate  of  energy  loss  along  the  channel  is  highly 
dependent  on  the  potential  function  which  governs  the  interaction,  the 
energy  of  the  atom,  and  its  deviation  from  the  line  of  focusing.    From 
geometrical  considerations,  one  would  expect  (100)  channels  to  dissipate 
more  energy  per  unit  length  than  would  be  dissipated  by  (110)  channels. 
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Channels,  energy  chains,  and  the  displacement  chains,  then,  may 
produce  vacancies  which  are  separated  by  large  distances  from  their 
corresponding  interstitials  and  sputtered  atoms.    Thus,  chains  and 
channels  are  competing  mechanisms  which  produce  the  same  effects . 
Energy  and  displacement  chains  should  not  be  significantly  affected  by 
the  presence  of  vacancies.    Vacancies  in  the  lines  of  atoms  surrounding 
a  channel  should  tend  to  divert  channeled  energetic  atoms  into  the 
corresponding  chains.    Interstitial  atoms  should  tend  to  disrupt  channels 
and  chains . 

It  appears  that  the  chain  and  channel  mechanisms  are  the  dominant 
factors  in  the  radiation  damage  event.    The  conditions  for  stability  and 
the  lengths  of  the  chain/channels  will  then  largely  determine  the  final 
lattice  configuration  „ 


3 .      Theoretical  Work  by  Others 

17 
Gibson,  et  al  =       have  studied  radiation  damage  events  by  inte- 
gration of  the  classical  equations  of  motion  of  the  atoms  in  a  small 
crystallite  (<C1000  atoms) .    A  central  repulsive  potential  of  the  Born- 
Mayer  type,  A  exp  (-r/b),  was  assumed  for  the  interactions  between 
atoms.    In  order  to  contain  the  events  it  was  necessary  to  restrict  the 
energy  to  <400  ev.    Calculations  were  made  on  a  high  speed  digital 

computer. 

17 
The  computer  program  developed  by  Gibson,  et  al.       keeps  a 

record  of  position  co-ordinates  and  velocity  components  for  each  atom 
in  the  crystallite .    The  orbits  of  the  atoms  are  arbitrarily  divided  into 
segments  with  respect  to  time,  i.e.  time  steps.    In  order  to  calculate 
the  trajectories  of  the  atoms  for  a  particular  time  step,  the  atoms  are 
considered  sequentially.    The  resultant  force  on  an  atom  under  con- 
sideration is  calculated  from  the  position  of  the  atom  and  the  positions 
of  the  surrounding  atoms .    The  atom  is  then  moved  for  one  time  step 
under  the  influence  of  this  resultant  force.    When  the  calculations  are 
completed  for  all  atoms  for  a  given  time  step,  calculations  for  the  next 
time  step  are  begun. 

If  the  repulsive  force  between  adjacent  atoms  were  the  only  force 
simulated,  the  crystallite  would  expand  without  limit.    Therefore,  it  is 
necessary  that  an  attractive  force  act  on  the  surface  atoms  of  the  crystal- 
lite.   If  all  collisions  were  elastic  collisions,  and  if  the  original  energy 
(for  a  100  ev.  run)  were  completely  contained  in  the  lattice,  the  mean 
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energy  of  the  atoms  would  be  about  0.1  ev„  after  thermalizatlon . 
This  corresponds  to  about  900°  C.  as  the  final  temperature  of  a  sys- 
tem which  started  at  0     C.    Therefore,  a  viscous  damping  force  was 
applied  to  surface  atoms  to  dissipate  energy. 

This  model  is  useful  in  studying  low  and  moderate  energy  (<400  ev.) 
effects  in  radiation  damage  events.    The  effects  studied  were  stability 
of  lattice  defects,  anisotropicity  of  energy  transfer  (energy  chains) , 
and  displacement  chains.    Interatomic  potential  and  surface  effects 
were  also  studied. 

In  the  Gibson  model,  energy  chains  play  a  dominant  role  in  the 
dissipation  of  energy  from  the  initial  knock-on.    Frenkel  pairs  are 
shown  to  be  stable  for  distances  of  separation  greater  than  2  1/2-4 
times  the  nearest  neighbor  distance ,  depending  upon  the  orientation 
of  the  pair  with  respect  to  the  lattice.    Interstitials  were  studied  ex- 
tensively and  found  to  be  stable  only  in  the  split  interstitial  configura- 
tion. 

21 
Oen,  et  al.       have  investigated  the  stopping  of  energetic  atoms 

(1-100  kev.)  by  solids.    The  model  is  based  on  binary  elastic  collisions 

between  a  primary  knock-on  and  successive  target  atoms  which  are 

initially  at  rest.    Lattice  effects  are  neglected;  the  target  atoms  are 

initially  randomly  distributed  throughout  the  target  material. 

The  ultimate  goal  of  the  work  by  Oen,  et  al.  is  to  discover  the 

appropriate  interatomic  potential.    The  immediate  aim  is  to  calculate 

histories  of  many  primaries  which  may  be  considered  to  simulate  a 
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beam  of  incident  atoms  or  ions . 

Trajectories  and  histories  are  calculated  only  for  the  primary 
knock-ons ,  i.e.  any  effect  produced  by  sedondary  knock-ons  is 
neglected.    The  history  of  each  primary  consists  of: 

1)  R,  the  distance  from  the  initial  position  to  the  final 
position  of  the  primary, 

2)  X,  the  component  of  R  parallel  to  the  initial  direction  of 

motion  of  the  primary, 

3)  P,  the  component  of  R  in  a  plane  perpendicular  to  the 
initial  direction  of  motion  of  the  primary,  and 

4)  L,  the  length  of  the  path  traversed  by  the  primary. 

Each  run  consists  of  the  calculation  of  histories  for  enough  primaries, 
usually  1000,  to  insure  that  statistical  fluctuations  in  the  mean  values 
of  R,  X,  Pf  and  L  were  acceptable  (<  3%). 

The  potential  used  was  an  exponentially  screened  Coulomb,  or 
Bohr  potential-      V(r)  =  -|fc.    expf-«/l^ 

*        K 

where      EB  "-  2?t  Z,  e%fa  and       ab=  kaH/|f2 4 +.?%)*' 

where  aH  =  first  Bohr  radius  (0.529  A) .    The  parameter  k  may  be  adjusted 
to  achieve  agreement  with  experimental  results  „    The  hard  sphere  approxi- 
mation to  the  Bohr  potential  was  also  used  in  some  cases  for  comparison . 

O  A 

Results  for  the  cases  of  10.5  and  60  kev.  Na       ions  incident  upon 
aluminum  targets  were  compared  with  the  experimental  results  of  Davies  & 

g  

Sims.       No  serious  discrepancy  is  found  in  the  mean  penetration ,  X. 
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However,  the  experimental  distribution  of  penetration  is  more  "skewed" 
toward  lower  penetration  than  the  distribution  of  penetration  calculated 
by  Oen,  et  al. 


11 


4 .      The  Problem 

The  binary  collision  model  has  been  the  basis  of  all  analytical 
studies  of  radiation  damage  and  sputtering.    Many  machine  calculations 
have  been  made  in  recent  years  using  an  N  -  body  collision  model, 
However,  no  serious  attempt  has  been  made  to  determine  whether  or 
not  a  two-body  approximation  would  yield  satisfactory  results. 

Our  problem,  then,  was  to  build  a  model  based  on  the  binary  col- 
lision whose  logic  would  be  sophisticated  enough  to  adequately  repre- 
sent the  radiation  damage  problem.    The  nature  of  the  results  obtained 
would  then  definitely  establish  the  degree  of  confidence  to  be  placed 
in  any  binary  collision  approximation  models. 
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5  .      The  Binary  Collision 

With  minor  modifications ,  any  repulsive  potential  may  be  used  in 
the  two  body  interaction.    An  eroded  form  of  the  potential  is  used,  i.e 
the  potential  has  a  definite  radius  of  effect,    We  have  taken  this  radius 
of  effect  (or  sphere  of  influence)  as  an  input  parameter,  SPHI  ,    There  is, 
then,  no  interaction  between  atoms  whose  separation  is  greater  than 
SPHI. 

All  applications  of  the  program  to  date  have  used  an  eroded  Born- 
Mayer  potential,  V  =  A  exp  (B(l-r/SPHI))  for  r<  SPHI.    The  constants 
A  &  B  were  taken  from  Gibson  et  al.  for  three  different  Born-Mayer 
potentials,  termed  simply  Potentials,  1,2,  and  3.    The  constants  for 
these  three  potentials  are: 

POTENTIAL         A  (ev.)  B 

1  .0392  16.97 

2  .0510  13.00 

3  .1004  10.34 

The  interaction  starts  with  the  two  atoms  at  SPHI  distance  of  sepa- 
ration with  all  the  energy  as  kinetic  energy.    All  co-ordinates  and  velo- 
city components  are  transformed  to  the  center  of  mass  system,  where 
the  equations  of  motion  are: 

1)  dt=(2/m'    (E-V-LVzm'r2))"1/2  dr 

2)  d0  =  (L/m'r2)  dt 
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where       t  =  time 

m'  =  reduced  mass 
E  =  kinetic  energy 
V  =  potential  energy 
L  =  total  angular  momentum 
r  =  distance  of  separation 
0  =  angle  of  deviation 
s  =  impact  parameter 

The  equations  are  integrated  from  r  =  SPHI  to  r  =  CPA,  the  distance 

of  closest  approach,,    Since  the  interaction  is  symmetrical  in  the  center 

of  mass  system,  the  definite  integrals  of  the  above  equations  are  one- 

half  the  time  of  interaction  and  one-half  the  total  angular  deviation, 

respectively . 
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CPA  is  found  by  an  interation  of  the  formula: 

(CPA)2  (1  -  V(CPAVEr)  -  S2  =  0 
The  first  approximation  to  CPA  is  taken  as  SPHI.    A  four  point  Gauss- 
Legendre  quadrature  is  employed  to  evaluate  the  integrals,, 
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6  .      Development  of  the  Model 

When  the  possibility  of  a  feasible  two  body  approximation  to  the 
radiation  damage  problem  is  considered,  two  major  problems  are  im- 
mediately encountered . 

The  atoms  would,  of  necessity,  be  considered  in  some  sort  of 
ordered  sequence ,  but  all  calculations  for  a  single  atom  could  not  be 
carried  through  before  the  other  atoms  are  considered  since  this  would 
obviously  leave  out  of  the  calculations  the  effect  of  collisions  suffered 
by  other  atoms  .    This  first  major  problem  led  to  the  time  step  approach, 
and  eventually  to  the  use  of  an  absolute  time  of  an  atom's  last  collision 

The  second  major  problem  is  to  develop  a  mechanism  which  will 
handle  simultaneous  collisions  within  a  two-body  approximation. 

After  the  program  was  developed,  we  discovered  that  the  lattice 
would  not  hold  together  which  necessitated  a  further  modification. 
This  difficulty  is  only  partially  resolved. 

The  first  question  considered  in  the  development  of  the  model  was 
to  mathematically  create  a  face  centered  cubic  lattice  in  table  form, 
together  with  a  method  which  tags  each  atom  so  that  its  subsequent 
movements  and  initial  position  could  be  found.    Figure  2,  APPENDIX  II, 
shows  the  ordered  arrangement  found  in  a  (100)  plane  of  a  fee  lattice 
The  distance  between  two  atoms  along  the  (100)  direction  is  taken  as 
two  units.    It  will  be  noted  that  if  the  total  X  dimension,  DC,  is  odd, 
then  there  are  an  equal  number  of  atoms  in  the  line  y  =  0  and  the  line 
y  =  1 .    By  specifying  IX  odd,  the  number  of  atoms  in  a  line  y  =  constant 
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Is  known  to  be  (DC  +l)/2.    This  value,  NLINE ,  can  then  be  multiplied 
by  the  total  Y  dimension  plus  one  (IY+1) ,  and  the  number  of  atoms  in 
the  whole  plane,  NPLANE ,  is  obtained.    It  will  be  noted  from  Figure  3 
that  the  next  plane,  one  Z  unit  removed,  is  akin  to  a  photographic 
negative  of  the  plane  under  consideration.    However,  the  ideas  of 
NLINE  and  NPLANE  are  still  valid.    The  total  number  of  atoms  in  the 
lattice  can  then  be  found  by  multiplying  NPLANE  by  the  Z  dimension 
plus  one  (IZ+1) .    If  the  atoms  are  numbered  sequentially  as  shown  in 
APPENDIX  II,  the  initial  co-ordinates  of  their  sites  can  also  be  found 
by  the  method  shown  in  APPENDIX  II  and  APPENDICES  IV  &  V  (BOX  31) . 

The  process  outlined  above  will  create  and  number  a  1500  atom 
lattice  in  approximately  one  second.    An  advantage  of  this  method  is 
that  a  rectangular  lattice  of  any  size  or  shape  desired  can  be  created 
by  specifying  IX,  IY,  and  IZ.    The  only  restriction  is  that  LX  must  be 
odd. 

The  atoms  are  now  considered  sequentially,  for  a  period  of  one 
Time  Step  Length  (TSL) ,  and  all  collisions  that  will  take  place  before 
the  end  of  the  time  step  are  allowed  to  happen .    All  atoms  are  then 
moved  to  points  in  space  and  time  corresponding  to  the  end  of  the  time 
step,  and  the  process  is  repeated  for  the  next  time  step. 

The  length  of  a  time  step  was  originally  calculated  so  that  the 
most  energetic  atom  in  the  lattice  could  move  one  lattice  unit  (1 .807 
Angstroms  for  copper)  in  one  time  step.    This  has  been  modified  so 
that  it  is  now  able  to  move  any  desired  fraction,  TFAC ,  of  one  lattice 
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unit.    TFAC  is,  naturally,  one  of  the  input  parameters  of  the  problem. 

Since  the  energy  of  the  most  energetic  particle ,  ENERGY,  in  the 
lattice  decreases  during  the  course  of  the  run,  the  TSL  should  be  re- 
calculated periodically  for  greater  efficiency.    Provisions  were  made 
to  recalculate  the  Time  Step  Length  every  JPB  (an  input  parameter)  time 
steps.    The  TSL  is  also  recalculated  every  time  another  particle  is  shot 
into  the  lattice,  since  it  is  assumed  that  this  particle  will  be  the  most 
energetic  one  present,  and  it  was  not  thought  feasible  to  wait  for  the 
next  regular  recalculation.    A  table  of  the  first  30  Time  Step  Lengths, 
and  the  time  step  of  recalculation,  is  kept  for  reference. 

As  now  constituted,  there  are  one  external  and  two  internal  methods 
used  to  determine  the  number  of  time  steps  which  complete  a  run.    The 
external  method  is  the  only  one  available  to  the  operator  once  a  com- 
putational run  has  commenced. 

First,  a  variable  limit  is  set  on  the  maximum  number  of  time  steps 
(MNTS ,  an  input  parameter)  that  may  be  taken .    The  calculation  must 
cease  when  this  number  of  time  steps  has  been  completed,  and  the 
results  are  then  obtained. 

Second,  the  program,  at  the  beginning  of  each  time  step,  decides 
whether  or  not  it  should  continue  for  another  time  step.    The  decision 
to  continue  is  made  if  the  energy  of  the  most  energetic  particle  (called 
ENERGY)  in  the  lattice  (excluding  all  those  that  have  left  the  lattice) 
is  greater  than  a  certain  threshold  energy,  THERMAL  (an  input  parameter 
explained  below) .    If  ENERGY  is  les^  than  THERMAL,  the  run  is 
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considered  completed  and  the  informational  output  is  given. 

Third ,  the  operators  may  decide  to  shut  down  operation  before 
either  of  the  two  internal  limits  have  been  reached.    This  may  be  done 
at  any  time,  simply  by  throwing  a  switch,  and  the  computation  will 
cease  at  the  beginning  of  the  next  time  step. 

The  external  mode  of  problem  completion  should  not  be  the  normal 
operating  condition,  nor  should  the  number  of  time  steps  be  allowed  to 
approach  MNTS  under  most  conditions,  since  either  method  still  leaves 
atoms  in  the  lattice  with  more  energy  than  the  quantity  THERMAL. 
Usually  the  calculation  should  cease  of  its  own  accord,  with  the 
second  method  given  above  as  the  basis  for  the  internal  decision. 
Other  factors,  such  as  running  time,  mechanical  failures,  etc.  ,  may 
necessitate  the  use  of  the  external  method,  but  these  are  to  be  avoided 
if  possible. 

A  method  of  program  regeneration  was  also  devised  so  that  the  run 
could  be  discontinued  at  the  start  of  any  time  step  and  then  restarted  at 
that  point  at  some  later  time.    This  has  definite  value  where  continuous 
periods  of  available  machine  time  are  not  long,  or  when  mechanical  or 
electrical  failures  destroy  the  calculations .    The  information  needed  for 
regeneration  can  be  obtained  at  the  beginning  of  any  time  step  and  the 
calculation  continued  (or  stopped  if  desired). 

In  this  manner,  if  the  calculation  has  been  running  for  three  hours 
before  a  failure  of  some  kind  occurs ,  the  only  time  that  need  be  re- 
peated on  the  machine  is  the  time  elapsed  since  the  last  regeneration 
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information  was  put  on  magnetic  tape ,    It  should  be  noted  that  the  re- 
generation need  not  be  undertaken  at  once ,  but  may  be  delayed  until 
convenient.    This  regeneration  process  has  great  practical  importance 
to  the  user  of  the  program ,  but  is  of  no  theoretical  value. 

Many  atoms  are  given  only  a  cursory  examination  during  a  time 
step,  while  the  more  energetic  atoms  are  subjected  to  a  highly  detailed 
treatment .    The  use  of  two  energy  thresholds  in  the  model  simplifies 
this  choice  for  a  particular  atom. 

ETHRESH,  the  upper  energy  threshold,  is  the  energy  required  for 
an  atom  to  move  from  its  site  to  a  site  near  it,  i.e.  the  displacement 
energy  •    Calculations  by  others17  have  shown  this  displacement 

threshold  to  exist,  and  also  that  it  is  in  the  neighborhood  of  20 

17 
electron  volts  .    They  have  also  shown       that  this  displacement  thresh- 
old depends  upon  direction,  and  is  lower  in  the  (100)  and  (110)  direc- 
tions than  in  other  directions  in  the  lattice .    This  directional  depend- 
ence of  the  displacement  threshold  has  not  been  built  into  the  present 
model,  but  it  should  be  considered  in  any  future  development  of  the 
model. 

THERMAL,  the  lower  energy  threshold,  is  an  arbitrary  dividing 
line  imposed  upon  the  model,  below  which  atoms  are  quite  arbitrarily 
placed  on  sites  or  formed  into  interstitial  pairs  with  other  atoms  and 
not  allowed  to  move.    Atoms  above  THERMAL  are  allowed  to  participate 
normally  in  collisions . 
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There  are,  then,  three  distinct  energy  classes  among  the  atoms  in 
the  lattice: 

1)  Those  with  energy  above  ETHRESH, 

2)  Those  with  energy  between  ETHRESH  and  THERMAL,  and 

3)  Those  with  energy  below  THERMAL. 
The  three  classes  will  be  discussed  separately. 

The  atoms  above  ETHRESH  do  not  occupy  a  site  in  the  lattice , 
collide  with  other  atoms  as  necessary,  and  obtain  information  about 
their  subsequent  motion  only  from  the  interaction  subroutine. 

The  atoms  between  ETHRESH  and  THERMAL  are  forced  to  occupy 
specific  lattice  sites,  but  are  allowed  to  vibrate  around  these  sites. 
They  cannot  move  to  a  new  site  because  their  energy  is  less  than  the 
displacement  energy.    These  atoms  are  allowed  to  move  undisturbed 
until  they  have  a  collision,  and  then  after  the  collision  has  been  com- 
pleted, if  they  lose  a  specific  percentage,  TURN  (an  input  parameter) , 
of  their  original  energy  their  velocity  vectors  are  changed  to  point  back 
toward  the  site  occupied  by  the  atom. 

We  found  prior  to  the  use  of  this  turn-around  method  that  the  lattice 
had  no  inherent  cohesiveness .    This  method  holds  the  lattice  together 

To  speed  up  computation  time,  atoms  with  energy  below  THERMAL 
are  forced  to  occupy  a  fixed  site,  or  to  share  an  interstitial  site  with  a 
partner,  and  are  not  allowed  to  move.    This  is  a  reasonable  and  valuable 
approximation  for  atoms  of  low  energy,  since  they  will  not  have  an 
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appreciable  effect  on  the  results  of  the  computation .    The  energy  and 
associated  velocity  components  of  these  thermallzed  atoms  are  kept 
intact  for  use  in  possible  future  collisions. 

After  the  decision  is  made  to  continue  for  another  time  step,  and  the 
Time  Step  Length  has  been  recalculated,  the  atoms  are  considered  sequen- 
tially.   The  information  associated  with  the  atom  under  consideration 
(primary  atom)  which  is  stored  In  the  LB  array  is  first  inspected.    If  the 
atom  has: 

1)  An  energy  equal  to  or  less  than  THERMAL,  or  has 

2)  Been  through  the  current  time  step,  or  has 

3)  Left  the  lattice, 

we  move  on  to  consideration  of  the  next  atom . 

We  will  account  for  all  collisions  if  we  consider  only  those  atoms 
with  energy  greater  than  THERMAL,  since  atoms  with  energy  less  than 
THERMAL  are  not  allowed  to  move  unless  hit.  Atoms  that  have  already 
been  through  the  time  step  have  completed  all  interactions  which  occur 
during  the  time  step  and  should  not  become  involved  again  until  the 
next  time  step.  Atoms  that  have  left  the  lattice  will  not  be  considered 
for  the  remainder  of  the  problem . 

A  primary  atom  with  energy  above  THERMAL  is  finally  selected,  or 
the  computation  shuts  down.    A  list  of  all  other  atoms  it  is  possible  for 
this  atom  to  hit  in  this  time  step  Is  required.    To  shorten  the  computa- 
tion ,  a  mathematical  box  is  constructed  around  the  atom  in  question 
(hereafter  referred  to  as  atom  M)  and  a  list  (the  NUM  list)  is  made  of 
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all  atoms  whose  positions  (centers)  are  inside  the  box.    If  the  box  is 
made  large  enough,  it  will  be  impossible  for  atom  M  to  hit  any  atoms 
outside  the  box,  so  we  need  consider  only  those  on  the  NUM  list.    At 
present,  the  box  is  given  sides  of  3.02  units,  ot+_  1.51  units.    Initially, 
the  sides  were  +  1.01,  but  this  has  been  found  to  be  too  small,  and 
obvious  collisions  were  missed.    Atoms  that  have  been  through  the  time 
step  are  not  included  on  this  list,  since  their  co-ordinates  are  relative 
to  the  end  of  the  time  step  rather  than  the  start  of  the  time  step .    Atom  M 
is  placed  first  on  the  list  for  programming  facility  and  easy  reference. 

The  impact  parameter  between  every  other  atom  on  the  NUM  list  and 
atom  M  is  then  calculated,  these  distances  comprise  the  DSTANCE  list. 
The  time  at  which  each  atom  reaches  this  distance  of  closest  approach, 
and  the  time  at  which  the  atom  and  atom  M  are  SPHI  (sphere  of  influence 
of  an  atom)  distance  apart  are  also  calculated.    These  times  are  placed 
on  the  TMIN  and  T  lists,  respectively. 

During  the  course  of  the  calculation  of  the  DSTANCE,  TMIN,  and  T 
lists ,  several  tests  are  performed  on  these  quantities  .    If  the  DSTANCE 
for  an  atom  is  larger  than  SPHI,  no  collision  will  occur.    If  the  relative 
velocity  is  less  than  10"    ,  then  the  atoms  are  moving  very  slowly 
relative  to  one  another,  and  the  collision  is  ignored.    Several  tests  are 
then  performed  on  each  T.    If  the  time  T  is  less  than  the  start  of  the  pre- 
ceeding  time  step,  it  would  have  been  considered  in  this  previous  time 
step,  and  is  therefore  treated  as  a  spurious  collision.    If  the  time  T  is 
greater  than  the  end  of  the  current  time  step ,  it  will  be  re-examined  in 
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the  next  time  step.    The  times  of  the  last  collision  of  atom  M  and  the 
other  atom  are  then  checked,  and  if  the  time  T,  on  an  absolute  scale, 
is  less  than  either  of  these,  the  collision  is  spurious  since  it  would  be 
starting  before  one  that  had  already  taken  place ,    The  last  test  performed 
is  whether  the  time  T  is  within  . 00001  (TSL)  of  the  end  of  the  time  step. 
If  so,  we  feel  that  it  would  be  better  to  consider  this  collision  in  the 
next  time  step,  since  to  consider  it  now  would  mean  that  the  end  of  the 
collision  was  far  into  the  next  time  step,  which  is  unsatisfactory  from 
a  practical  viewpoint . 

If,  after  this  series  of  eliminations,  there  are  no  atoms  left,  then 
atom  M  is  moved  to  the  end  of  the  time  step,  and  the  next  atom  in  se- 
quence becomes  atom  M, 

If  atoms  remain  on  the  list  we  select  the  ones  that  atom  M  will  hit. 
Two  alternative  methods  of  selection  were  considered  by  the  authors: 

1)  Select  the  one,  or  ones,  that  are  closest  (i.e.  a  space- 
wise  selection) ,  or 

2)  Select  those  that  will  collide  with  atom  M  first  (i.e.  a 
time-wise  selection) . 

Only  the  second  method  has  been  used. 

The  space-wise  selection  would  surely  include  all  the  hardest 
collisions,  and  would  probably  be  easier  from  a  programming  viewpoint . 
However,  a  time-wise  selection  insures  that  atom  M  will  hit  first  what 
it  really  should  hit  first.    Atom  M  may  thereby  miss  a  hard  collision 
with  another  atom  because  of  another  previous  soft  one,  but  we 
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currently  feel  that  this  is  a  truer  picture  of  what  actually  happens  in  the 
lattice  during  the  radiation  damage  process.    We  feel  that  both  methods 
should  be  tried  in  future  development  of  the  model.    A  study  as  to  the 
relative  feasibility  of  both  methods  would  enhance  the  usefulness  of  the 
model. 

Atoms  are  selected  that  have  the  smallest  times  ,  T.    Since  we  assume 
that  two  atoms  have  no  interaction  if  they  are  separated  by  a  distance 
greater  than  SPHI,  the  time  T  is  the  actual  time  of  collision.    We  feel 
that  some  leeway  should  be  available  here,  therefore  all  atoms  whose 
times  T  are  within  a  certain  amount  (CUTOFF)  of  a  time  step  from  the 
minimum  times  are  also  selected.    These  atoms  are  placed  on  the  KHIT 
list,  with  atom  M  first  on  the  list.    Since  CUTOFF  is  an  input  parameter, 
adjustment  to  a  satisfactory  value  may  be  accomplished  easily.    Use  of 
the  CUTOFF  parameter  also  eliminates  some  of  the  objections  to  the 
time-wise  selection  process. 

The  initial  velocity  components  and  energies  of  all  atoms  on  the 
KHIT  list  are  then  stored  in  the  SAVE  array  because  they  will  be  needed 
for  the  velocity  scaling  processes  . 

It  must  be  emphasized  that  atom  M  hits  all  those  on  the  KHIT  list 
almost  simultaneously      This  necessitates  some  sort  of  energy  and 
velocity  scaling  process,  or  a  general  solution  to  the  N  body  problem. 

We  feel  that  if  the  two  body  approximation  is  to  have  any  validity 
atom  M  must  enter  into  each  of  the  two  body  collisions  with  its  initial 
energy ,  but  the  program  must  scale  the  results  in  some  fashion.    Assume, 
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for  example,  that  M  initially  has  an  energy  of  100  ev.  and  hits  two 
atoms  simultaneously  with  identical  impact  parameters.    It  is  more 
feasible  to  assume  that  M  hits  each  one  with  an  energy  of  100  ev. 
than  to  assume  that  M  hits  one  with  100  ev„  and  hits  the  other  with 
whatever  energy  is  left,  say  37  ev. 

Naturally,  with  M  hitting  each  atom  separately  with  100  ev.  the 
struck  atoms  will  receive  too  much  energy,  we  must  therefore  scale  the 
results  c 

In  the  actual  collision  process  of  the  model,  then,  atom  M  and  the 
next  atom  on  the  KHIT  list  are  moved  to  their  calculated  positions  at  the 
time  T  for  the  atom  being  hit.    The  collision  is  then  calculated  and  the 
struck  atom  is  given  its  new  position  co-ordinates ,  velocity  components , 
and  energy,,    Atom  M  and  the  next  atom  on  the  KHIT  list  are  then  moved 
to  the  positions  corresponding  to  their  actual  time  of  collision,  T,  and  so 
forth.    This  is  repeated  until  atom  M  has  "struck"  all  the  atoms  on  the 
KHIT  list. 

To  conserve  both  energy  and  momentum  in  any  scaling  process 
would  constitute  a  general  solution  to  the  N  body  problem.    We,  there- 
fore, elected  to  conserve  energy  rather  than  momentum,  feelinj  that 
this  would  give  us  a  more  realistic  insight  into  the  radiation  damage 
problem. 

There  are  four  general  scaling  cases  that  must  now  be  considered: 

1)  Atom  M  "lost"  more  energy  than  it  started  with, 

2)  Atom  M  "lost"  exactly  all  the  energy  it  started  with, 
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3)  Atom  M  started  with  an  energy  arove  ETHRLSH  and  did  not 

"lose"  all  of  its  energy,  and 

4)  Atom  M  started  with  an  energy  below  ETHRESH,  but  above 
THERMAL,  and  did  not  lose  all  of  its  energy. 

These  cases  will  be  discussed  in  order. 
CASE  I 

Atom  M  is  allowed  to  lose  all  its  initial  energy,  and  its  velocity 
components  and  energy  are  set  equal  to  zero,    The  energies  and 
velocities  of  the  struck  atoms  are  then  scaled  to  conserve  energy.    The 
energy  scaling  factor  used  in  this  case  is  simply  the  total  energy  {of 
those  on  the  KHIT  list)  before  the  collisions  divided  by  the  total  energy 
after  the  collisions      The  velocity  scaling  factor  is  the  square  root  of 
the  energy  scaling  factor.    The  energies  and  velocities  of  all  atoms  on 
the  KHIT  list,  except  atom  M,  are  scaled  by  these  two  scaling  factors. 

Both  energy  and  the  absolute  velocity  directions  are  conserved  by 
this  process . 
CASE  II 

Atom  M  is  allowed  to  lose  all  of  its  initial  energy,  and  its  velocity 
components  and  energy  are  set  equal  to  zero.    Here,  however,  energy 
scaling  is  not  necessary  since  energy  has  already  been  conserved. 
CASE  III 

Here  it  is  not  necessary  to  scale  the  energies  of  the  struck  atoms, 
since  atom  M  did  not  lose  all  of  its  initial  energy,  so  the  struck  atoms 
retain  the  energies  and  velocities  they  received  in  the  two  body  collision 


process.    The  energy  of  M  is  found  by  subtracting  t^e  energy  gained  by 
the  struck  atoms  from  M's  initial  energy.    M's  velocity  components 
must  now  be  found 

The  sums  of  the  individual  velocity  components  calculated  for  M, 
but  not  given  to  M,  are  taken.    Call  these  sums  S1#  S2,  and  S3  for  the  X, 
Y,  and  Z  directions.    Let  R  be  (S2  +  S2  +  S2)1'2.    The  magnitude  of  M's 
final  velocity,  V,  is  known  since  the  energy  is  known.    The  X  velocity 
is  then  taken  as  (V/R)  (S^) ,  and  similarly  the  Y  and  Z  velocities  are 
(VA)(S2)  and  (V/R)(S3)  respectively . 
CASE  IV 

Two  sub-cases  must  be  considered,    First,  if  atom  M  does  not  lose 
TURN  %  of  its  initial  energy,  the  treatment  used  in  CASE  III  will  be 
followed . 

Second,  if  atom  M  does  lose  a  significant  portion  of  its  energy,  its 
velocity  components  are  changed  so  that  the  atom  is  directed  back  toward 
the  site  it  occupies .    The  energy  of  M  is  again  its  initial  energy  minus 
the  energy  gained  by  the  struck  atoms.    The  scale  factor  used  is 
(Velocity /distance  from  site).    This  is  multiplied  by    AX,   AY,  and 
A  Z  to  give  the  velocity  components  .    ^X  is  simply  the  X  co-ordinate 
of  the  site  minus  the  X  co-ordinate  of  M  „ 

In  all  cases,  atom  M's  spatial  co-ordinates  are  found  by  averaging 
the  individual  co-ordinates  calculated  for  M  in  the  X,  Y,  and  Z  directions 
(i.e.  dividing  the  sum  by  NHIT) . 
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If  atom  M  is  a  primary  atom  (i.e.  one  of  those  considered  sequen- 
tially for  this  time  step) ,  then  the  KHIT  list  is  duplicated  by  the  LAST 
list.    Atom  M  will  then  proceed  to  go  through  its  designated  collisions, 
look  for  more  collisions ,  and  go  through  these  until  it  completes  all 
collisions  in  this  time  step. 

When  atom  M  has  completed  all  its  possible  collisions  for  this  time 
step,  each  atom  that  M  hit  (found  in  order  on  the  LAST  list)  undergoes 
the  same  process  and  attempts  to  hit  other  atoms  .    The  atoms  hit  by  M  , 
or  others  on  the  LAST  list,  are  not  inspected  for  possible  further  colli- 
sions in  this  time  step.    We  feel  that  these  "secondary"  atoms  would 
not  have  enough  time  to  have  a  collision  in  this  time  step,  and  if  they 
did,  the  collisions  will  be  calculated  in  the  next  time  step.    At  this  point, 
a  possibility  does  exist  that  some  reasonable  collisions  are  excluded 
by  the  process,  but  extensive  calculations  have  not  revealed  any 
examples  of  this  exclusion  to  date. 

The  absolute  time  of  an  atom's  last  collision  is  also  calculated 
during  the  collision  processes  described  above.    For  each  of  the  struck 
atoms  this  time  is  the  total  time  from  the  start  of  the  computation  to  the 
start  of  this  time  step  plus  the  time,  T,  of  collision  (T  is  measured  from 
the  start  of  the  current  time  step) . 

The  time  of  M's  last  collision  is  taken  as  the  start  of  its  collision 
with  the  last  atom  on  the  KHIT  list  (computed  as  above)  plus  a  certain 
percentage  (PERCENT ,  an  input  parameter)  of  the  present  time  step 
length.    M  is  thus  prevented  from  participating  in  further  collisions 
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for  a  definite  period  of  time  after  the  start  of  its  last  collision.    We 
feel  that  this  approach  is  a  valid  one ,  however  study  of  this  aspect  of 
the  model  should  be  continued  to  determine  its  true  usefulness. 

Sites  must  now  be  found  for  those  atoms  on  the  KHIT  list  whose 
pre-collision  energies  were  above  ETHRESH  and  whose  energies  are 
now  below  ETHRESH. 

If  the  rounded-off  co-ordinates  of  an  atom  in  this  class  (call  it  J) 
give  the  co-ordinates  of  an  actual  lattice  site,  then  the  atom  will 
occupy  that  site,  possibly  as  part  of  an  interstitial  pair  if  the  site  is 
already  occupied .    Atom  J  will  then  be  allowed  to  vibrate  around  its 
site  until  its  energy  falls  below  the  THERMAL  cutoff.    If  J's  rounded-off 
co-ordinates  are  not  the  co-ordinates  of  a  site ,  then  the  nearest  neighbor 
sites  are  found  and  the  site  closest,  space-wise,  to  atom  J  is  chosen  as 
J's  vibrational  center.    Again,  this  may  result  in  the  formation  of  an 
interstitial  pair.    Since  one  of  the  atoms  has  an  appreciable  energy, 
however,  this  interstitial  pair  should  be  destroyed  in  the  next  time  step. 

The  site  decided  upon  may  already  be  occupied  by  an  interstitial 
pair:    if  so,  a  "triple  interstitial"  is  formed.    An  error  counter  is  then 
increased  (MISTAKE  (5)).    The  possibility  of  "triple  interstitials"  could 
be  eliminated  by  more  extensive  programming,  but  an  evaluation  should 
first  be  made  of  the  seriousness  of  this  error.    The  frequency  of  forma- 
tion of  these  "triple  interstitials"  has  been  small  thus  far,  not  more 
than  two  or  three  per  run,  which  is  tolerable.    If  this  frequency  reaches 
an  intolerable  level  in  future  development,  the  model  must  be  modified 
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to  eliminate  any  possibility  of  their  occurrence. 

All  atoms  on  the  KHIT  list  whose  post-collision  and  scaling  energies 
are  below  THERMAL  are  placed  on  the  LATER  list  at  this  time.    Use  of 
the  LATER  list  is  discussed  below. 

If  one  of  the  struck  atoms  on  the  KHIT  list  was  a  member  of  an 
interstitial  pair,  the  other  atom  must  now  be  considered.    If  this  other 
atom  was  not  hit,  and  the  struck  atom  now  has  an  energy  above  ETHRESH 
(a  very  unlikely  occurrence) ,  then  the  other  atom  is  placed  back  on  the 
site,  rather  than  being  left  in  the  split  interstitial  position.    We  feel 
that  moving  the  atom  back  onto  the  site  is  more  realistic  than  the 
definite  error  of  leaving  it  in  the  split  interstitial  position. 

All  calculations  in  the  model  are  made  on  the  assumption  that  the 
atoms  are  both  space-wise  and  time -wise  at  the  start  of  the  current  time 
step ,  except  those  that  have  completed  the  current  time  step  .    Therefore , 
all  the  atoms  on  the  KHIT  list  are  now  moved  back  in  time  and  space  on 
their  post-collision  tracks  to  the  start  of  this  time  step. 

The  entire  collision  process,  including  the  construction  of  a  new 
NUM  list  is  now  repeated  for  atom  M.    This  repetition  will  continue  for 
M  until  M  is  unable,  time-wise,  to  have  further  collisions  in  this  time 
step.    The  next  atom  on  the  LAST  list  will  then  become  atom  M  and  the 
collision  process  will  be  repeated  until  this  M  is  unable  to  have  further 
collisions  in  this  time  step.    This  overall  procedure  is  then  repeated 
until  the  LAST  list  has  been  exhausted. 
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All  the  atoms  on  the  LAST  list,  except  those  on  the  LATER  list, 
(the  original  M  is  the  first  atom  on  the  LAST  list)  are  now  moved,  space 
and  time-wise,  to  the  end  of  the  time  step.    These  atoms  have  now  com- 
pleted the  time  step  and  will  not  enter  into  the  subsequent  calculations 
until  the  next  time  step. 

The  LATER  list  is  now  utilized  to  place  the  atoms  that  have  partici- 
pated in  this  sequence  of  collisions  and  whose  energies  are  below 
THERMAL  on  sites ,  either  as  members  of  interstitial  pairs  or  by  them- 
selves on  previously  vacant  sites  . 

The  co-ordinates  of  the  atoms  on  the  LAST  list  are  now  examined . 
If  an  atom  has  left  the  lattice,  the  time  step  number  and  the  particular 
face  (see  APPENDIX  I,  NFACE)  of  exit  is  recorded  in  the  LB  array. 

This  completes  the  consideration  of  atom  M  (the  original  M)  for  this 
time  step.  The  next  atom  (M  +  1)  is  then  considered  in  the  same  manner 
until  all  atoms  have  been  through  the  procedure  (and ,  consequently ,  the 
time  step) . 

After  all  the  atoms  have  been  through  these  processes  ,  all  un- 
affected atoms  are  moved  to  the  end  of  the  time  step,  which  completes 
the  time  step.    A  new  time  step  is  then  started,  or  the  run  is  shut  down 
by  one  of  the  three  processes  mentioned  earlier. 

A  numerical  example  of  the  order  in  which  atoms  are  considered  may 
be  of  some  value  here.    Assume  atom  #7  3  (M)  hits  four  atoms  simulta- 
neously, atoms  75,  79,  87,  and  65.    Assume  further  that  #73  hits  them 
in  the  order:    #79,  #65,  #87,  #75.    Atom  #73  will  hit  these  four,  then 
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repeat  the  process  for  further  collisions.    Assume  #73  hits  #80  and  #67 
next,  but  has  no  further  collisions  after  that.    Then,  atom  #79  will 
become  the  next  M  since  it  is  second  on  the  LAST  list,  #65  the  next  M, 
and  after  #75  has  completed  its  possible  collisions,  if  any,  the  regular 
sequence  will  be  taken  up  once  more.    Atom  #7  3  was  the  last  one  con- 
sidered sequentially,  therefore  atom  #74  now  becomes  the  primary  atom, 
atom  M . 

As  mentioned  above,  atoms  whose  energies  fall  below  THERMAL  are 
either  placed  alone  on  vacant  sites ,  or  formed  into  split  interstitial  pairs 
with  other  atoms  near  them.    This  is  done  only  after  a  primary  atom,  to- 
gether with  those  on  its  LAST  list,  has  been  completely  considered.    If 
this  were  done  at  the  end  of  every  collision  process ,  it  would  severely 
hamper  the  multiple  collision  process,  and  impose  a  great  deal  of  strain 
on  the  credibility  of  the  argument  behind  it. 

When  a  list  of  the  nearest  neighbor  sites  is  formed ,  if  the  atom  in 
question  (call  it  MJ)  is  within  one  unit  of  a  face  of  the  crystallite,  some 
of  the  geometrically  nearest  neighbors  normally  found  will  not  be  present. 
There  are  22  special  cases  for  each  one  of  the  two  general  cases  (MJ's 
co-ordinates  are  a  site  or  non-site) .    Sixteen  of  these  special  cases 
for  each  concern  the  edges  and  corners  of  the  crystal.    In  our  model, 
the  32  (total)  possible  cases  for  atom  MJ  near  an  edge  or  comer  are  not 
considered  separately,  but  are  included  in  the  12  special  cases  of  when 
MJ  is  near  a  lattice  face.    When  one  of  the  32  unconsidered  special 
cases  does  arise,     an  error  counter  is  increased.    Inspection  of  all 
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preliminary  results  to  date  have,  however,  shown  NO  discrepancies  as 
a  result  of  this  simplification  at  the  edges  and  corners  of  the  lattice , 

After  the  list  of  nearest  neighbor  sites  ,  the  MOON  list,  is  formed, 
these  sites  are  inspected  for  possible  vacancies      If  only  one  vacancy 
exists ,  atom  MJ  is  placed  on  that  site  and  the  appropriate  corrections 
are  made  to  the  LB  array „    It  more  than  one  vacancy  exists  among  MJ's 
nearest  neighbor  positions,  then  one  of  these  must  be  selected  for  MJ's 
occupancy.    We  feel  that  this  selection  should  be  made  on  a  space-wise 
condition  of  proximity,  rather  than  on  any  time-wise  condition.    There- 
fore, atom  MJ  is  allowed  to  occupy  the  closest  vacant  site*    If  there  is 
more  than  one  vacancy  at  this  smallest  distance,  MJ  will  be  placed  on 
its  own  site,  if  available,  or  the  selection  will  be  made  in  a  random 
manner.    The  choice  of  a  particular  vacancy  in  the  case  of  multiple 
vacancies  is  somewhat  unsophisticated,  however  at  this  stage  of  devel- 
opment in  the  radiation  damage  field,  we  feel  that  no  process  of  a  more 
sophisticated  nature  can  be  justified. 

If  no  vacancies  exist  among  atom  MJ's  nearest  neighbor  sites,  then 
a  prospective  interstitial  site  and  partner  are  chosen.    If  atom  MJ  has 
no  energy  or  velocity,  this  decision  is  made  on  a  space-wise  basis, 
i.e.  the  closest  site  is  chosen.    If  atom  MJ  does  have  energy,  then  the 
selection  is  made  on  a  time-wise  basis,  i.e.  the  site  that  atom  MJ 
passes  first o 

Once  the  selection  of  a  prospective  interstitial  partner  has  been 
completed,  the  atom  (call  it  MM)  which  occupies  the  site  is  found. 
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Atom  MM's  nearest  neighbor  sites  are  then  found,  and  the  list  is 
examined  for  vacancies.    If  any  vacancies  exist,  then  atom  MM  is 
moved  to  one  of  these  vacant  sites  by  the  same  method  discussed 
above  for  MJ.    Atom  MJ  is  then  moved  onto  atom  MM's  recently  vacated 
site  and  no  interstitial  is  formed . 

If,  however,  atom  MM  finds  no  vacancies  ,  then  an  interstitial  pair 
must  be  formed.    We  feel  that  of  the  three  types  of  interstitial  pairs 
mentioned  earlier,  the  split  interstitial  is  the  most  plausible.    Indeed, 

Gibson,  et  al.  have  shown  the  split  interstitial  to  be  the  only  stable 

17 
configuration.        The  ^X,    &f ,  and  £Z  distances  between  atom  MJ 

and  the  site  atom  MM  occupies  are  found.    The  largest  of  these  is 

taken  as  the  axis  of  the  interstitial  pair.    Each  atom  is  then  placed  on 

its  split  position,  0.5  units  from  the  site  along  the  axis.    Once  the 

appropriate  corrections  are  made  to  the  LB  array ,  the  formation  of  the 

pair  is  completed. 
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7 .      Operating  Procedures 

The  model  consists  of  three  separate  but  inter-connected  programs , 
MASTER,  SLAVE,  and  RON.    Machine  memory  limitations  forced  the  devel- 
opment of  three ,  rather  than  one  ,  programs  . 

The  main  program,  MASTER,  is  the  computational  program  and  does 
all  of  the  calculations  necessary  to  complete  the  run.    The  two  second- 
ary programs,  SLAVE  and  RON,  merely  use  the  binary  output  of  program 
MASTER  as  input  and  put  the  results  in  a  semi-analyzed  readily  legible 
form.    The  orbits  (or  intermediate  positions  of  the  moving  atoms)  are 
given  by  program  RON  while  program  SLAVE  tabulates  and  categorizes 
the  final  positions,  energies ,  etc.  of  the  lattice  atoms.    Again,  be- 
cause of  memory  limitations,  the  two  secondary  programs  may  not  be 
combined . 

If  a  binary  version  of  program  MASTER  is  obtained  with  the  FORTBIN 
compiler,  the  storage  required  may  be  found  by  listing  of  the  binary  tape. 
The  maximum  lattice  may  then  be  computed .    The  FORTMAP  compiler 
should  be  used  to  compile  the  large  version  of  MASTER  since  it  requires 
less  memory  than  the  other  compilers  „ 

Once  program  MASTER  is  compiled,  a  run  may  be  started.    MASTER  is 
called  into  memory  and  the  run  begins.    MASTER  calls  for  BCD  input  on 
Tape  2,  and  this  is  normally  transferred  to  the  card  reader.    BCD  output 
is  given  on  Tapes  3  &  4.    Tape  4  is  normally  transferred  to  the  typewriter 
for  output  (see  BOX  10,  APPENDIX  V) .    The  BCD  output  on  Tape  3  is 
temporary  and  may  be  eliminated  when  the  program  is  working  correctly. 
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This  will  also  make  more  memory  space  available. 

Program  MASTER  writes  binary  output  on  Tapes  6,7,  and  8.    The 
MASTER  output  on  Tape  6  is  the  binary  input  to  program  RON .    The  MASTER 
output  on  Tape  7  is  the  regeneration  output  and  is  used  only  by  the  MASTER 
program.    The  MASTER  output  on  Tape  8  is  the  binary  input  to  program 
SLAVE.    MASTER  will  automatically  rewind  each  of  the  three  binary  tapes 
when  output  for  a  particular  tape  is  completed . 

When  MASTER  has  completed  computation  program  SLAVE  should  be 
called  from  our  system  library.    SLAVE  calls  for  BCD  input  (comment 
cards,  etc.)  on  Tape  2,  and  this  is  normally  transferred  to  the  card 
reader.    SLAVE  will  then  read  Tape  8,  compute,  and  write  its  BCD  out- 
put on  the  designated  tape.    Program  SLAVE,  at  this  time,  has  PRINT 
statements  for  all  output  except  that  mentioned  in  BOX  1  of  the  SLAVE 
part  of  APPENDIX  V,  and  therefore  the  output  will  be  on  Tape  4  unless 
otherwise  directed  by  the  operator. 

When  SLAVE  has  completed  its  run,  program  RON  should  be  called 
from  the  system  library.    The  input  and  output  designations  for  RON  are 
the  same  as  those  for  SLAVE  except  that  RON  reads  Tape  6  rather  than 
Tape  8 . 

If,  for  some  reason,  MASTER  does  not  complete  its  run,  and  Tape  6 
is  not  rewound,  program  RON  must  be  run  with  Jump  Switch  1  in  the  set 
position.    This  will  insure  that  the  correct  END  designation  (in  this  case 
a  -1)  is  placed  at  the  end  of  the  information  on  Tape  6  and  that  the  tape 
is  rewound. 
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8.      Parameter  Adjustment 

The  two  input  parameters,  ETHRESH  and  TURN  primarily  govern  the 
cohesiveness  or  solidity  of  the  lattice.    At  ETHRESH  =  3evt/  for 
instance,  some  400-500  replacements  occur  with  a  100  ev.  shot.    With 
ETHRESH  raised  to  15-25  ev.  the  number  of  replacements  drops  to  con- 
siderably less  than  ten,  depending  on  the  location  and  direction  of  the 
initial    knock-on  atom.    The  best  working  values  seem  to  lie  in  the 
15-25  ev.  range,  as  preliminary  results  in  this  range  show  good  correla- 
tion with  the  work  of  others  .    More  accurate  values  of  ETHRESH  and 
TURN  should  be  obtained  in  the  future  from  concurrent  N-body  calcula- 
tions for  use  in  the  model . 

Adjustment  of  the  TURN  parameter  also  governs  the  length  of  energy 
chains.    If  TURN  =  0.0,  the  energy  chains  are  almost  non-existent. 
Atoms  vibrating  on  their  sites  are  then  re-directed  toward  their  sites 
after  their  first  collision.    Since  this  first  collision  is  usually  a  slight, 
glancing  one,  very  little  energy  is  transferred  and  the  energy  chain  is 
not  seen.    If,  however,  the  TURN  parameter  is  set  too  high,  displace- 
ments occur  among  atoms  with  energy <  ETHRESH .    Investigations  thus 
far  seem  to  indicate  that  a  value  of  about  0 . 1  is  the  optimum  value  for 
TURN. 

THERMAL  has  little  effect  on  the  larger  aspects  of  radiation  damage 
i.e.  chains,  channels,  displacements,  ring  displacement,  etc.,  but 
has  a  large  effect  on  machine  running  time.    By  changing  the  value  of 
THERMAL  from  0ol  ev.  to  0.5  ev.  ,  the  machine  time  can  be  reduced  by 
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75%  or  more.    The  very  low  (below  THERMAL)  energy  vibrations  are  no 
longer  seen,  to  be  sure,  but  since  this  is  not  one  of  the  areas  of  pri- 
mary interest ,  the  advantage  of  drastically  decreased  machine  time  far 
outweighs    the  inherent  disadvantages 

When  the  penetration  of  higher  energy  (above  a  few  hundred  ev.) 
initial  knock-ons  is  the  primary  effect  under  consideration,  THERMAL 
may  be  set  as  high  as  3-5  ev.    For  initial  knock-on  energies  of  100  ev. 
and  below,  THERMAL  should  be  0. 1  -  0.5  ev.  to  achieve  a  reasonable 
degree  of  thermalization . 

Investigations  have  shown  that  the  radius  of  effect  (sphere  of  in- 
fluence),  SPHI,  should  lie  within  the  range  2.5-2.5  Angstroms  (for 
copper) .    Values  much  outside  this  range  (2  ■  2  say)  give  rather  meaning- 
less results.    We  feel,  as  a  result  of  the  studies  we  have  made,  that 

the  best  value  is  probably  slightly  less  than  the  nearest  neighbor  dis- 

1/2 
tance.    For  copper,  the  nearest  neighbor  distance  is  (2)  '      (1.807). 

We  have  used  the  value  (1.414)  (1.807)  when  not  specifically  investi- 
gating SPHI  effects .    We  feel  that  any  value  larger  than  the  nearest 
neighbor  distance  will  produce  invalid  results. 

Studies  of  the  optimum  values  for  PERCENT  and  CUTOFF  are  not 
completed  at  this  time.    Preliminary  investigations  show  that  values 
above  0.1  for  PERCENT  and  below  0.1  for  CUTOFF  prevent  significant 
collisions  from  taking  place. 

The  value  of  TFAC  should  be  kept  below  1.0,  unless  the  normal 
value  of  1.0  is  used.    A  more  accurate  tracing  of  individual  particle 
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movement  is  possible  with  smaller  TFAC's,  but  machine  time  increases 
proportionately.  A  compromise  must  then  be  made  between  the  running 
time  available  and  the  individual  tracing  accuracy  desired. 

FMASS  may  be  adjusted  for  the  particular  metal  being  used.    At 
present  the  model  is  restricted  to  metals  with  face  centered  cubic  struc- 
ture.   The  Born-Mayer  potentials  used  are  restricted  to  copper  only 
since  values  of  the  interaction  input  parameters  (the  constants  A  &  B 
mentioned  above)  are  not  available  for  other  materials. 
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9.      Preliminary  Results 

Preliminary  results  to  date  show  that  the  existence  of  channels, 
energy  and  displacement  chains,  vacancies,  interstitials ,  and  replace- 
ments depend  quite  heavily „  and  quite  critically,  on  the  values  of  the 
input  parameters  used.    Before  very  satisfactory  results  can  be  obtained, 

more  reliable  values  of  these  parameters  must  be  determined. 

1 7 
A  run  corresponding  to  Gibson ,  et  al's.        Run  No.  12  has  been  made 

with  a  slightly  modified  version  of  the  program,  using  a  40  ev,  primary 

knock-on.    The  primary  knock-on  was  shot  directly  at  one  of  the  atoms 

on  the  front  face  (Gibson  et  al.  start  their  primary  knock-on  inside  the 

crystallite),  at  an  angle  of  15°  away  from  the  normal  (i  00)  direction . 

The  values  of  the  various  parameters  for  the  run  were: 

1)IXxIYxIZ=11x15x8 

2)  ETHRESH  =  20.0  ev. 

3)  THERMAL  =  0.5  ev. 

4)  CUTOFF  =  PERCENT  =  „15  (i.e.   15%) 

5)  SPHI  =2.5 

6)  TFAC  =1.0 

7)  TURN  =0.1 

Our  results  (see  Figure  1)  are  similar  to  those  obtained  ty  Gibson, 
et  al.  in  that  the  energy  chains  play  a  dominant  role  in  the  dissipation 
of  energy.    The  (100)  chain  of  our  run  is  not  as  prominent  as  Gibson, 
et  al's. ,  but  strong  focusing  is  observed  in  the  (110)  directions      Our 
(100)  chain  was  terminated  prematurely  by  the  velocity  turn-around 
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Figure  1 ,    Results  of  Preliminary'  Run 
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mechanism  employed  for  lattice  cohesiveness 
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10.   Recommendations 

Many  ideas  and  plans  occurred  to  us  during  the  development  of  the 
model  to  its  present  level  that  we  have  not  been  able  to  institute  be- 
cause of  time  limitations .    These  unrealized  plans  and  ideas  are  offered 
as  possible  guidelines  for  future  development. 

We  are  convinced  at  this  time  that  the  programming  errors  in  the 
model  are  concerned  almost  wholly  with  the  LB  information  array ,    As  we 
did  not  anticipate  the  great  dependence  upon  the  LB  array  when  we  began 
the  problem,  we  feel  that  the  LB  aspects  of  the  entire  model  (all  three 
programs)  must  be  overhauled,  and  more  orderly  storage  of  the  informa- 
tion should  be  investigated . 

Once  this  overhaul  and  possible  re-arrangement  of  the  LB  array  has 
been  accomplished  and  the  model  is  working  as  designed,  a  more  com- 
plete study  should  be  made  of  the  effects  of  parameter  adjustment. 

At  present  when  an  atom  on  the  LATER  list  doesn't  find  a  vacancy, 
a  prospective  interstitial  partner  is  chosen  from  the  MOON  list.    A 
search  is  then  made  for  vacancies  near  this  partner.    If  none  are  found, 
the  interstitial  pair  is  formed.    We  strongly  recommend  that  when  the 
prospective  partner  finds  no  vacancies,  the  rest  of  the  atoms  occupying 
nearest  neighbor  sites  should  also  be  inspected  for  vacancies  near  them. 
If,  again c  no  vacancies  are  found  then  the  interstitial  pair  should  be 
formed  between  atom  MJ  and  its  original  prospective  partner. 

To  facilitate  this ,  we  recommend  that  the  INVAC  subroutine  be 
split  into  two  or  more  subroutines.    There  should  be  a  separate 
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subroutine  whose  only  function  is  to  find  the  nearest  neighbor  sites, 
not  necessarily  by  the  present  system. 

In  the  present  model ,  if  a  vacancy  occurs  near  an  interstitial  pair 
after  the  interstitial  pair  has  been  formed ,  this  Frenkel  pair  will  not  re- 
combine  unless  the  interstitial  pair  is  hit  by  another  atom.,    Provisions 
should  therefore  be  made  for  periodic  inspections  of  all  interstitial 
pairs  and  any  possible  vacancies  near  them,    A  procedure  very  similar 
to  that  discussed  above  for  making  interstitial  pairs  could  be  used. 

We  also  feel  that  subroutines  and  functions  should  be  incorporated 
to  a  much  greater  extent  than  at  present,  and  that  wider  use  should  be 
made  of  comment  cards  in  the  programs . 

A  study  of  the  relative  merit  of  a  space-wise  versus  a  time  wise 
selection  process  for  the  KHIT  list  has  been  suggested  above  and  should 
be  made. 

The  ability  to  use  atoms  of  two  different  masses  should  be  built 
into  the  model.    The  actual  use  of  two  different  masses  with  a  Born- 
Mayer  potential  must  be  delayed  until  appropriate  constants  for  tl  e 
potential  are  found. 

ETHRESH  should  be  made  a  directional  dependent  variable  rather 
than  a  constant  as  at  present.    Since  a  function  able  to  represent  this 
directional  dependence  of  the  displacement  energy  is  not  available,  a 
table  of  thresholds  associated  with  direction  seems  the  most  promising 
course  of  action . 
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Two  memory  saving  ideas  have  occurred  to  us: 

1)  The  possible  elimination  of  the  TLAST  concept,  and 

2)  The  possible  use  of  a  method,  already  developed,  which 
packs  the  co-ordinates  and  velocity  components  of  an 
atom  into  three  memory  cells  rather  than  the  six  required 
at  present.    This  sub-program,  SQUEEZE,  developed  by 
one  of  the  authors  (RLK) ,  saves  space  at  the  expense  of 
running  time  „ 

The  use  of  these  two  ideas  would  save  considerable  memory  space,  and 
enable  the  users  to  approximately  double  the  size  of  the  available 
lattice . 

The  energy  and  velocity  scaling  processes  used  after  the  interaction 
(see  BOX  20,  APPENDICES  III,  IV,  &  V)  are  a  first  approximation  to  the 
problem  and  should  be  considered  in  that  light.    We  feel  that  at  present 
this  is  one  of  the  weakest  areas  of  the  model.    Considerable  effort  should 
be  devoted  to  this  section  in  the  future  „ 
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11.   Conclusions 

The  model  is  not  fully  developed  at  this  time,  but  we  feel  that 
some  valid  conclusions  may  be  drawn  from  the  results  obtained  thus  far. 
The  MASTER  program  (see  APPENDIX  III) ,  as  it  exists  now,  still  contains 
some  minor  programming  errors  but  we  feel  that  the  logic  is  basically 
sound . 

The  outstanding  attribute  of  the  model  at  this  time  seems  to  be  the 
greatly  decreased  machine  time  necessary  to  achieve  results  compared 
to  the  machine  time  necessary  for  an  N  -body  model.    This  decreased 
machine  time  makes  it  possible  to  use  a  lattice  as  large  as  the  machine 
memory  can  accommodate , 

We  do  not  feel  that  this  model  is  sufficiently  sophisticated  at  this 
time  to  state  definitely  the  degree  of  confidence  that  should  be  placed 
in  it.    We  do  feel,  however,  that  the  preliminary  results  show  that  with 
more  work  the  model  can  be  made  into  a  reasonable  approximation  to  the 
radiation  damage  problem.    We  anticipate  that  our  specific  recommenda- 
tions c  if  carried  out,  will  lead  to  a  program  which  approaches  this 
required  degree  of  sophistication. 
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APPENDIX  I 
SPECIFICATION  OF  UNITS  AND  ANNOTATED  LIST  OF  VARIABLES 
The  units  used  in  the  model  for  energy,  mass,  length,  time,  and 
velocity  are  given  below: 


ENERGY 
MASS 


The  electron  volt  (ev.),  equal  to  1.60207  x  10       joules 

The  Atomic  Mass  Unit  (AMU)  ,  equal  to  1.65983  x  10"27 
kilograms . 

LENGTH  The  Angstrom  unit,  equal  to  10         meters. 

TIME  The  jiffy,  defined  as  10"14  seconds. 

VELOCITY  Derived.    One  Angstrom/jiffy  =  104  meters/second  . 

The  variables  given  below  are  essentially  in  the  order  of  their 

appearance  in  the  program  listing.    However,  certain  basic  variables 

are  given  at  the  beginning  of  the  list.    An  asterisk  (*)  denotes  an  input 


variable. 


VARIABLE 


B  (I,L) 


USAGE 
An  array  containing  the  position  co-ordinates ,  velocity 
components,  and  energies  of  the  atoms  in  the  lattice. 
L  is  the  number  of  the  atom.    For  I  there  are  seven  cases: 

1  The  X  co-ordinate  in  Angstroms 

2  The  Y  co-ordinate  in  Angstroms 

3  The  Z  co-ordinate  in  Angstroms 

4  The  X  velocity  component  in  Angstroms/jiffy 

5  The  Y  velocity  component  in  Angstroms/jiffy 

6  The  Z  velocity  component  in  Angstroms/jiffy 

7  The  energy  in  electron  volts 
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VARIABLE  USAGE 

LB  (L)  An  array  used  for  information  storage ,  supplementary  to 

the  B  array.    L  is  the  number  of  the  atom.    Stored  from 

right  to  left  we  find  the  following  information: 

OCTAL 

POSITION  MEANING 

1        Bit  1    1  if  the  atom  has  completed  the  current  time 

step. 

0  if  the  atom  has  not  completed  the  current 

time  step , 
Bit  2    1  if  the  atom  has  an  energy  >  THERMAL. 

0  if  the  atom  has  an  energy <1  THERMAL. 
Bit  3    1  if  the  site  L  is  occupied  by  any  atom. 

0  if  the  site  L  is  unoccupied . 
2-5  The  number  of  the  time  step  in  which  atom  L 

exited  the  lattice .    Zero  if  L  is  in  the  lattice , 
6-9  The  number  of  the  other  atom  in  an  interstitial 

pair  with  atom  L.    Zero  if  L  is  not  a  member 

of  an  interstitial  pair, 
10-13       The  site  occupied  by  this  atom,  even  if  it  is 

the  original  site.    If  this  number  is  zero,  then 

the  atom  has  an  energy  >  ETHRESH  and  is 

wandering  through  the  lattice . 
14  The  number  of  the  face  through  which  atom  L 

exited  the  lattice,  called  NFACE. 
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VARIABLE 


USAGE 


OCTAL 
POSITION 


MEANING 


15     Bit  1    1  if  the  atom  is  on  the  LATER  list  but  has  not 
been  through  INVAC . 
0  if  the  atom  is  not  on  the  LATER  listo 
Bit  2    1  if  the  atom  has  been  through  INVAC  and  has 
not  had  another  collision. 
0  if  the  atom  has  never  been  through  INVAC, 
or  has  had  a  collision  since  going  through 
INVAC. 


Bit  3    Not  used 
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Not  usedo    If  Bit  3  is  used  this  results  in  a 


negative  number  and  should  be  avoided. 

OCTAL  (L)  Equivalent  to  LB  (L) ,    Used  for  output  purposes  only. 

TLAST  (L)  The  absolute  time  from  the  start  of  the  run  to  the  time  of 

atom  L's  last  collision.    Given  in  jiffys. 

CUTOFF*  A  percentage  of  a  Time  Step  Length .    All  atoms  with  a 

time  of  collision  within  CUTOFF  %  of  a  TSL  of  the  mini- 
mum time  will  take  part  in  a  near  simultaneous  collision 
with  atom  L. 

PERCENT*  A  percentage  of  a  Time  Step  Length.    The  absolute  time 

of  completion  of  an  interaction  equals  (Time  at  start) 
plus  (PERCENT)  (TSL). 
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VARIABLE 

TFAC* 

LULL* 


IX,  IY,  IZ* 


A* 


SPHI* 


ETHRESH* 


THERMAL* 


FMASS* 
JPB* 


USAGE 
A  scaling  factor  for  the  Time  Step  Lengths  . 
The  interval,  in  time  steps,  at  which  atoms  will  be  shot 
into  the  lattice,  provided  the  proper  jump  switches  are 
set.    Does  not  affect  operation  if  the  jump  switches  are 
not  set. 

The  X,  Y,  and  Z  fixed  point  dimensions  of  the  lattice, 
respectively,  such  as  9  x  14  x  15.    IX  must  be  ODD. 
One  half  the  side  of  a  unit  cell.    For  copper  this  is 
1 ,807  Angstroms. 

The  sphere  of  influence  of  an  atom.    One  atom  has  an 
SPHI  of  (1.4 14) (A),  and  the  other  atom  is  considered 
to  be  a  point.    Given  in  Angstroms. 
The  displacement  threshold  energy  in  electron  volts. 
An  atom  with  an  energy  >  ETHRESH  may  move  through 
the  lattice.    Atoms  with  energy  below  ETHRESH  are 
forced  to  remain  on  their  sites  in  the  lattice. 
The  thermal  energy  limit.     Atoms  with  energy  above 
THERMAL  are  allowed  to  vibrate  on  their  site.    Atoms 
with  energy  below  THERMAL  are  placed  on  sites ,  or  in 
interstitial  pairs  by  the  INVAC  subroutine . 
The  mass  of  a  lattice  atom  in  Atomic  Mass  Units  (AMU) . 
The  interval,  in  time  steps,  at  which  the  Time  Step 
Length  is  recalculated. 
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VARIABLE 

MNTS* 

MNP* 

FI  (1-3) 

AB  (1-3) 

NLINE 

NPLANE 

LMAX 
MAXLAT 

TEMP,  TEM 
SITE  (L) 


TTIME 


OENERGY 


USAGE 
The  maximum  number  of  time  steps  the  program  will  run. 
The  maximum  number  of  particles  to  be  shot  into  the 
lattice . 

Used  throughout  the  program.    Usually  denotes  the 
floating  point  co-ordinates  of  a  particular  site. 
The  physical  dimensions  of  the  lattice  in  Angstroms  in 
the  X,  Y,  and  Z  directions,  respectively. 
The  number  of  atoms  in  a  line  in  the  X  direction  for  the 
undisturbed  lattice. 

The  number  of  atoms  in  any  undisturbed  X  -  Y  plane  of 
the  lattice. 

The  maximum,  or  total,  number  of  atoms. 
The  total  number  of  atoms  in  the  lattice,  excluding 
those  shot  into  the  lattice,  i.e.  the  number  of  sites. 
Floating  point  variables  used  for  temporary  storage  only. 
A  short  subroutine.    Given  the  number  of  a  site  as  an 
input,  SITE  computes  the  fixed  point  co-ordinates  of  the 
site.    These  are  then  found  in  IB  (1-3). 
The  total  elapsed  time  from  the  start  of  the  run  to  the 
end  of  the  current  time  step,  in  jiffys. 
The  total  original  energy  of  the  lattice  in  ev.    This  is 
increased  every  time  a  particle  is  shot  into  the  lattice. 
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VARIABLE  USAGE 

ENERGY  The  energy  in  ev.  of  the  most  energetic  atom  in  the 

lattice.    Atoms  that  have  left  the  lattice  are  not  con- 
sidered in  the  computation  of  ENERGY. 

TENERGY  The  total  energy  in  ev.  in  the  lattice.    This  is  computed 

every  time  step  for  comparison  with  OENERGY. 

IENERGY  The  number  of  the  most  energetic  atom  in  the  lattice . 

MISTAKE  (1-10)    An  array  of  10  error  counters  „    Their  meanings  are: 

1  The  number  of  time  steps  for  which  TENERGY  varies 
more  than  1%  from  OENERGY. 

2  The  number  of  times  a  vacancy  is  filled,  or  an 
interstitial  is  formed,  near  an  edge  or  corner  of 
the  lattice. 

3  The  number  of  times  a  negative  energy  was  computed 

4  The  number  of  times  an  atom  formed  an  interstitial 
with  itself,  i.e.a  false  interstitial. 

5  The  number  of  triple  interstitials  formed . 
6-9  Not  used. 

10     Set  equal  to  MISTAKE  (2)  at  the  start  of  INVAC  so 
that  the  increase  in  MISTAKE  (2)  may  be  calculated. 
NA  The  index  for  the  TSLI  and  NTSC  lists.    Always  one 

greater  than  the  number  of  times  the  TSL  has  been 
recomputed . 
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VARIABLE 


USAGE 


NEXT 


MINTS 


Til 
MOVE 

NOW 


LOCATE 


CON  (1-4) 


W  (1-4) 


XC  (1-6)* 


The  number  of  the  next  particle  to  be  shot  into  the 
lattice .    NEXT  is  one  before  any  atoms  are  shot  into 
the  lattice. 

The  minimum  number  of  time  steps,  i.e.  the  lower  limit 
of  the  time  step  DO  loop.    Always  one  unless  the  re- 
generation method  is  used. 
The  square  of  SPHI. 

An  indicator  used  to  determine  the  exit  point  from  sub- 
routine INVAC . 

The  lattice  site  nearest  an  atom,  computed  in  INVAC, 
used  to  determine  an  atom's  oscillatory  center,  if  the 
atom's"  energy  is  below  ETHRESH. 

An  indicator  used  to  hold  the  number  in  Index  Register  5 , 
enabling  us  to  use  Index  Register  5  without  destroying 
the  contents . 

Constants  used  in  the  subroutine  INTER.    These  have  no 
relation  to  the  main  program . 

Constants  used  in  subroutine  INTER.    These  have  no 
relation  to  the  main  program. 

Only  two  used.    These  are  the  constant  parameters  used 
in  the  Born-Mayer  potential,  and  can  be  changed  to  fit 

any  one  of  the  three  types  of  Born-Mayer  for  copper, 

17 
as  devised  by  Gibson,  et  al. 


55 


VARIABLE 


USAGE 


CI  -  CIO 


MASK1 
MASK8 


ALFA 


Constants  used  in  subroutine  INTER.    Computed  outside 
the  subroutine  as  a  time  saving  measure. 
Masking  quantities  used  for  logical  arithmetic  with 
LB  (L)      The  definition  of  the  significance  of  the  octal 
positions  in  LB  (L)  and  the  masks  themselves  explain 

their  specific  applicability. 

—  6 
10      A  small  number  for  comparison  to  floating  point 

variables  to  prevent  use  of  insignificantly  small  quanti- 
ties. 


ALPHA* 


The  angle  between  the  original  X  and  Y  velocity  compo- 
nents of  a  particle  shot  into  the  lattice ,  given  in  radians . 

BETA*  The  angle  between  the  original  X  and  Z  velocity  compo- 

nents of  a  particle  shot  into  the  lattice ,  given  in  radians. 

YENTRY  (NEXT)     The  Y  co-ordinate  at  which  a  particle  shot  into  the  lattice 
crosses  the  X  =  0  plane.    Given  in  Angstroms. 

ZENTRY  (NEXT)     The  Z  co-ordinate  at  which  a  particle  shot  into  the  lattice 
crosses  the  X  =  0  plane.    Given  in  Angstroms. 
The  energy  in  ev.  of  a  particle  shot  into  the  lattice. 
The  Time  Step  Length  in  jiffys.    TSL  is  calculated  so  that 
the  most  energetic  atom  in  the  lattice  will  move  a  dis- 
tance equal  to  (TFAC)(A)  in  one  time  step. 
A  list  of  the  first  30  TSL's  that  are  calculated.    Used 
for  output  purposes  only. 
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EPB 
TSL 


TSLI  (NA) 


VARIABLE 


USAGE 


EMAX 


N 


NTSC  (NA)  A  list,  corresponding  to  the  TSLI  list,  that  gives  the 

time  steps  in  which  the  values  given  in  the  TSLI  table 
were  calculated. 

A  list  of  the  values  of  ENERGY  for  the  first  30  time 
steps.    Used  for  output  purposes  only. 
The  sixth  Index  Register,  and  the  number  of  the  current 
time  step.    The  current  time  step  can  always  be  found 
by  stepping  the  computer  console  and  recording  the 
value  of  this  Index  Register .  _N  is_  used  for  nothing  else. 
The  number  of  the  atom  sequentially  under  consideration. 
The  index  of  the  DO  loop  starting  at  Statement  160. 
The  number  of  the  atom  currently  under  primary  considera- 
tion, usually  equal  to  L. 

J  Usually  the  number  of  the  atom  considered  in  relation  to  M 

LATER  (NZ)  A  list  of  atoms  whose  energies  are  less  than  THERMAL 

and  are  to  be  put  through  the  INVAC  subroutine . 

NZ  The  index  for  the  LATER  list,  used  for  no  other  purpose. 

INMIN  The  index  for  the  LAST  list,  used  for  no  other  purpose. 

INMAX  The  maximum  number  of  atoms  listed  on  the  LAST  list, 

equal  to  NMAX  when  the  list  is  made. 

INPUT  An  indicator.    If  zero,  then  the  KHIT  list  is  copied  onto 

the  LAST  list0    If  not  zero,  the  LAST  list  is  left  untouched. 


M 
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VARIABLE 


USAGE 


NUM  (  ) 


KMAX 
KHIT  (  ) 

NMAX 
TMIN  (  ) 


A  list  of  all  the  atoms  in  a  box  of  side  length  3.02  (A) 
centered  at  atom  M.    Only  atoms  on  this  list  are  con- 
sidered as  possible  targets  for  M      M  is  first  on  the 
list. 

The  total  number  of  atoms  listed  on  the  NUM  list. 
A  list  of  atoms ,  derived  from  the  NUM  list,  that  atom  M 
will  hit.    Atom  M  is  first  on  the  list. 
The  total  number  of  atoms  listed  on  the  KHIT  list. 
The  time,  in  jiffys,  of  closest  approach  between  atom  M 
and  the  corresponding  atom  on  the  NUM  list.    This 
assumes  no  deviation  from  straight  paths.    Measured 
with  the  start  of  the  current  time  step  as  a  zero  reference 
The  distance,  in  Angstroms,  between  atoms  when  at  their 
point  of  closest  approach  as  determined  by  their  TMIN, 
The  time,  in  Jiffys,  at  which  the  two  atoms  are  SPHI 
distance  apart.    Will  be  less  than  the  corresponding 
TMIN  if  there  is  to  be  a  collision  between  M  and  the 
atom  on  the  corresponding  NUM  list. 


ITEMP,  JTEMP,     Fixed  point  variables  used  throughout  the  program  for 
MTEMP,NTEMP 

temporary  storage  purposes  .    No  particular  significance 


DSTANCE  (  ) 


T    (    ) 


NPAIR 


An  indicator  for  a  computed  GO  TO  statement.    NPAIR  is 
3  if  one  of  the  atoms  being  hit  is  a  member  of  an  inter- 
stitial pair. 
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VARIABLE 


IN3 


LAST  (    ) 


Tl  -  T10 


NFACE 


JA 


KMIN 


NHIT 


ELOST 


USAGE 
An  indicator  that  shows  the  number  of  those  on  the  NUM 
list  that  will  be  hit  by  atom  M. 

A  duplicate  of  the  first  KHIT  list  comprised  for  M  when 
M  =  L.    All  atoms  on  the  list  will  become  M's  when  the 
preceeding  M  is  no  longer  able  to  have  collisions  in  this 
time  step. 

Temporary  variables  (see  BOX  17,  APPENDIX  IV)  used  to 
speed  up  computation  time . 

The  face  of  exit  of  an  atom  when  it  leaves  the  lattice. 
Faces  1,  3,  5  are  the  negative  X,  Y,  and  Z  faces,  res- 
pectively, while  faces  2,4,6  are  the  positive  X,  Y, 
and  Z  faces  respectively. 

The  index  for  the  KHIT  list  that  shows  which  atom 
atom  M  is  colliding  with  at  the  present  time.    JA's  range 
is  from  2  to  NMAX.    Has  other  uses  in  INVAC . 
The  number  on  the  T  list  that  is  smallest.    T  (KMIN)  is 
the  minimum  time ,  and  is  the  collision  time  for  atom 
NUM  (KMIN). 

The  number  of  atoms  on  the  KHIT  list  that  have  been 
hit  by  M . 

The  energy  in  ev.  that  M  lost  in  its  collisions  with  the 
other  atoms  on  the  KHIT  list. 
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VARIABLE 
SAVE  (l,K) 


COLD  (    ) 


PAR 


TIME 


DEV  (1,1-2) 


USAGE 
The  pre-collision  velocity  components  and  energies  of 
the  atoms  on  the  KHIT  list.    SAVE  (1,1)  is  the  initial 
X  velocity  of  KHIT  (1) .    SAVE  (2  , 1)  is  the  initial  Y 
velocity  of  KHIT  (1) ,  etc.    SAVE  (4,1)  is  the  energy  of 
KHIT  (1). 

A  floating  point  variable  used  in  the  energy  and  velocity 
scaling  process.    COLD  (1-6)  correspond  to  the  first 
six  co-ordinates  in  the  B  array .    They  are  the  sums  of 
the  individual  components  of  the  DEV  array  after  each 
collision,  i.e.  COLD  (1)  is  the  sum  of  all  the  DEV 
(1,1) 's  for  a  series  of  collisions      COLD  (1)  is  then 
the  sum  of  all  the  X  co-ordinates  M  would  have  had  as 
a  result  of  the  collisions  with  the  rest  of  the  KHIT  list. 
The  scattering  parameters  in  meters  ,  and  the  third  input 
to  the  INTER  subroutine  . 

The  time  T  for  M's  previous  collision  with  one  of  the 
others  on  the  KHIT  list.    For  instance,  if  JA  is  3,  we 
are  considering  KHIT  (3)  in  relation  to  M ,    TIME  is  then 
the  T  corresponding  to  KHIT  (2) . 

An  array,  used  in  subroutine  INTER,  holding  the  position 
co-ordinates ,  velocities ,  and  energies  of  the  two  atoms 
at  the  end  of  the  interaction.    The  first  index,  I,  has 
the  same  meaning  as  the  first  index  of  the  B  array. 
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VARIABLE 


USAGE 


STUPID 
SCALE  (    ) 
TURN* 


IT 


MANY,NANY 


JPMAX 

MOON  (    ) 
NOW1,  NOW 


The  second  index  is  one  for  atom  M,  and  two  for  atom  J. 

The  B  array  is  not  changed  in  the  subroutine,  but  the 

DEV  array  contains  the  output  of  the  subroutine.    The 

B  array  is  then  scaled  as  necessary. 

A  scale  factor  used  in  the  velocity  scaling  process 

A  three  member  array  used  in  the  velocity  scaling  process. 

An  atom  in  the  intermediate  energy  range  must  lose  TURN  % 

of  its  energy  before  it  is  re-directed  back  toward  its 

oscillatory  center. 

A  temporary  variable  used  to  facilitate  programming.    Also 

the  index  for  the  DO  loop  over  the  LATER  list. 

The  atoms  occupying  the  site  chosen  for  atom  M  after  M's 

energy  has  fallen  below  ETHRESH.    If  NANY  is  zero,  then 

M  and  MANY  will  become  an  interstitial  pair.    If  both  are 

non-zero,  a  "triple  interstitial"  is  formed,  while  if  both 

are  zero,  M  occupies  the  site  alone. 

The  number  of  atoms  on  the  MOON  list,  i.e.  the  number  of 

nearest  neighbor  sites. 

A  list  of  nearest  neighbor  sites  for  a  particular  atom. 

Temporary  variables  used  to  indicate  the  site  chosen  as 

oscillation  center  for  an  atom  in  the  intermediate  energy 

range.    NOW1  =  (NOW  shifted  27  binary  positions  to 

the  left) . 
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VARIABLE 


USAGE 


NAVY,  MAD 

ZZ  (6) 

NN,  IL,  LL 


Similar  to  LOCATE,  except  these  are  used  for  Index 
Registers  2  &  1,  respectively. 

The  time  in  seconds  necessary  for  the  interaction. 
Variables  used  to  denote  atom  numbers.    NN  is  the 
index  for  the  DO  loop  starting  at  Statement  241 .    IL 
usually  denotes  a  site  number,  while  LL  usually  de- 
notes the  number  of  the  "other"  atom  in  an  interstitial 
pair. 

The  number  of  the  atom  used  as  an  input  to  INVAC . 
Usually  equals  MJ,  but  if  MJ  finds  no  vacancies  then 
MM  is  the  prospective  interstitial  partner  atom. 
A  three  member  array  denoting  the  face  an  atom  entering 
INVAC  is  near  (i.e.  within  one  lattice  unit).    The  index 
is  1,  2,  or  3  for  the  X,  Y,  or  Z  directions,  respectively. 
The  list  of  vacancies  near  atom  MM  (which  is  usually  MJ) 
This  list  is  derived  by  examination  of  the  MOON  list, 
i.e.  if  an  atom  is  not  on  the  MOON  list,  it  will  never 
be  on  the  NOON  list. 

Either  1,  2 ,  or  3.    Denotes  the  direction  (X,  Y,  or  Z  re- 
spectively) of  the  axis  of  the  prospective  interstitial 
pair. 


NOTE:    This  is  the  end  of  the  list  of  variables  for  the  MASTER  program. 
Many  of  the  temporary  indices  are  not  listed  in  this  table. 


MJ 
MM 

IFACE  (     ) 


NOON  (    ) 


MAX 
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The  symbols  listed  below  are  peculiar  to  program  SLAVE  and  the 
usage  given  applies  only  to  program  SLAVE: 
VARIABLE  USAGE 

NTS  The  actual  number  of  time  steps  the  run  completed. 

KET  (1-26)  A  list  of  the  energy  ranges  for  the  histograph  distribu- 

tions . 
IHISTO  (1-105)     The  histograph  format  array. 


NBUL 

EBUL 

NSUBST 

NSAME 

NVAC 

INTERST 

ETHERM 


ESIDE  (1-6) 

ECAL 

LMAXCAL 
YANGLE 


The  number  of  knock-ons  (i.e     atoms  with  energy  above 

ETHRESH)  in  the  lattice , 

The  total  energy  of  all  knock-ons  in  the  lattice. 

The  number  of  replacements  in  the  lattice . 

The  number  of  atoms  on  their  original  lattice  sites . 

The  number  of  vacant  lattice  sites. 

The  number  of  interstitial  pairs  in  the  lattice. 

The  total  energy  of  the  atoms  that  have  gone  through 

INVAC. 


NSIDE  (1-6)  The  total  number  of  atoms  that  have  left  the  lattice 


through  each  of  the  six  faces . 

The  total  energy  of  the  atoms  that  have  left  the  lattice 
through  each  of  the  six  faces. 

The  same  as  TENERGY,  except  calculated  by  Program 
SLAVE. 

The  same  as  LMAX,  except  calculated  by  Program  SLAVE 
Angle  ALPHA  given  in  degrees  rather  than  in  radians. 
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VARIABLE 


USAGE 


ZANGLE  Angle  BETA  given  in  degrees  rather  than  in  radians. 

NUMBERS  (1-50)  A  fixed  point  array  used  for  temporary  storage  only. 
IC  (1-100)  A  fixed  point  array  used  for  temporary  storage  of  the 

histograph  channels . 
DEPTH  The  total  penetration  of  an  atom  in  the  positive  X 

direction . 


PERDIST 

LL 

XYZ  (1-3) 

NTOTAL 

NUMBIG 

TOTALN 

BIGNUM 


The  total  radial  penetration  of  an  atom  perpendicular 
to  the  X  direction . 

Usually  the  number  of  an  atom,  temporary  usage  only. 
Corresponds  to  the  FI  array  in  program  MASTER. 
The  sum  of  all  the  numbers  on  the  NUMBERS  list. 
The  largest  number  on  the  NUMBERS  list. 
NTOTAL  in  floating  point  format . 
NUMBIG  in  floating  point  format. 


The  symbols  listed  below  are  peculiar  to  program  RON  and  the  usage 
given  applies  only  to  program  RON: 
VARIABLE  _  USAGE 

T  Temporary  floating  point  variable  .    Not  to  be  confused 

with  the  T  array  in  program  MASTER. 
DX  A  distance  parameter,  in  Angstroms.    If  any  of  an  atom's 

co-ordinates  differ  from  its  stored  values  by  DX,  the 

atom's  position  will  be  printed,  and  the  new  position 

will  be  stored. 
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VARIABLE  USAGE 


RA  Reciprocal  of  A. 

P  (1-3)  The  co-ordinates  of  the  atom  under  consideration. 

IN  The  number  of  the  time  step  the  atom  under  considera- 

tion has  co-ordinates  P  (1-3). 

X  (1-3  ,N)  Stored  co-ordinates  of  an  atom  to  be  written  out  at  a 

later  time. 

NT  (I)  An  array  used  in  the  output  section.    The  lower  half  of 

a  storage  cell  is  the  number  of  the  atom  whose  co- 
ordinates are  X  (1-3  ,N) ,  and  the  upper  half  is  the  time 
step  the  atom  had  these  co-ordinates. 

NO  An  indicator.    If  greater  than  zero,  a  heading  has  been 

written  on  the  output  tape  for  the  atom  under  considera- 
tion.   If  less  than  zero,  no  heading  has  been  written 
on  the  output  tape  for  the  atom  under  consideration. 

S  (1-3)  Co-ordinates  of  an  atom  in  floating  point  form  in  A  units. 

One  A  unit  is  1.807  Angstroms  for  copper.    (See  A,  above) 
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APPENDIX  II 
LATTICE  CONSTRUCTION 
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FIG.   II     (100)  LATTICE  PLANE,   Z  EVEN 
Y    IX  =  15     IY  =  14 
NLINE  =  (15+1) /2  =  8 
NPLANE  =(NLINE)(IY+1)  =  (8) (14+1)  =  120 
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12   3    4    5   6   7    8   9   10   11   12  13 
FIG.   Ill     (100)  LATTICE  PLANE,   Z  ODD 

To  find  the  original  co-ordinates  of  atom  77, say: 
Z  =(77-l)/NPLANE  =  76/120  =  0   Remainder  =  76 

Y  =(76)/NLINE  =  76/8  =  9        Remainder  =  4 
X  =(4) (2)  =  8 

Y  +  Z  =  9  +  0  which  is  ODD,  therefore  X  =  X  +  1  =  9 
The  original  co-ordinates  of  atom  77  were  then  (7,9,0) 


14 
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APPENDIX  III 

PROGRAM  LISTINGS 

PROGRAM  MASTER 

01  MENS  ION  8(7,1500) , LB ( 1 5CC  )  ,0C T AL ( 1 50C ) , FI  ( 3)  .  IB ( 3 ) , T( 20 ) 

DIMENSION  TMIN(20),IFACE(3).MISTAKE(  10),MCON(l5)  ,NOOM  10),  WHO 

DIMENSION  XCU  )  •  XP  (  20  ) .  11  i\  5)  ,GON  (H  )  .  HE  V<7  .  2  J  .  Ae  (  3  ) 

DIMENSION  DSTANCfc{2CT,NUM2cT,KHITl26)  tLATEMSO)  .YEN  TRY  (  10) 

DIMENSION  ZENTRYt 10),TSLI(3C),NTSC(30),TLAST(15CC),LAST(2C) 

DIMENSION  EMAX(3C) ,C0L0(7),SAVE(Uf 10 ), SCALE! 3) 

COMMON  B,LB,OCTAL,FI, I R , T , TM IN , I F ACE , KI STAKE , MOON, NOON. W , XC , XP , ZZ 

COMMON  CONfDEV,AB,A,NPLANE,NLINE,LMAX,^ASKl,yASK2,MASK3,KASKU 

COMMON  I  TEMP, J TEMP, MTEMP  ,NTEMP  ,  I N2 , 1 N3, ILt JA t JB , JC, JK, JL, JM, JP, JR 

COMMON  JTtJW,MM,KMIN,MAX,TEMP,Nl,JPMAX,NIF,IX,IY.IZ,NN.MAXLAT,JJ 

COMMON  IP,TE,TEM,C1,C2,C2,CU,C5,C6,C7,C8,C9,C10,C11,C12,T1,T2 

COMMON  DSTANCE, FMASS, 13, TSL 

COMMON  MASK5.MASK6,MASK7,PASK8,MCVE,NCW 

EQUIVALENCE  ( XP , TMIN ), (LB .OCTAL) 

BOX  1 

WRITE  OUTPUT  TAPE  3,  995C 
9950  FORMAT! 2*H  THIS  IS  PROGRAM  VASTER        /) 
DO  9980  1=1,5 
READ  INPUT  TAPE  2,9981 

9980  WRITE  OUTPUT  TAPE  3,9981 

9981  F0RMAT(80H 

1  ) 

BOX  2 

READ  INPUT  TAPE  2 , 803, CUTOFF , PERCENT , TF AC, TURN 
803  F0RMATIUF10.6) 

REAO  INPUT  TAPE  2 , 1 001 ,LLLL , I  X , I Y, IZ , A 
1001  F0RMAT(UIU,F10.6) 

READ  INPUT  TAPE  2 . 1 02 , SPHI , ETHRESH,T HERMAL, FMASS , JPR, MNTS , MNP 
102  FORMATUF10.6.3I5) 

BOX  3 

FI(l)  *  IX 
FK2)  -  IY 
FK3)  =  IZ 
DO  1000  I«l,3 
1000  AB(I )-A«FI(I) 

BOX  U 

LDA( IX), INA( 1 ),ENC(0),ARS(1)  ,STA(NLINE),LDA{  IY) .INA(  1  )  ,VUI(NLINE  ) 
STA(NPLANE),LDA( IZ) ,INA( 1 ) ,MUI ( NPLAN E ) , ST A( LMAX ) , STA ( MAX L AT ) 

BOX  5 

DO  1020  L=1.LMAX 

CALL  SITE(L) 
1010  DO  1015  1=1,3 

TEMP=IB( I) 
1015  B( I,L)=A«TEMP 

ENAM0B),ALS(27) ,AOD(UB)  ,STAU ( LB ) , LD A (- 1 0.0 ) , ST AU ( TL AST ) 

00  1C20  I=U,7 
1020  B(I,L)  =  0.0 

BOX  6 

WRITE  TAPE  6, IX, IY, I Z , AC . PA  XL AT. A , SPF 1 , FMASS , ETHRESH, THERMAL , NNP 
WRITE  TAPE  6,((R(I.J)  1*1,3)  J= 1 ,MAX L AT ) , NL I NE , NPL ANE 
LDA(C.O),STA(TTIME),STA(CENERGY) ,STA(ENERGY),STA(ZZ*U),ENA(C) 
STA( MI  STAKE* 1 ) , STA( MI STAKE+2 ) , ST A ( MI  STAKE+3 ) ,ENA( 1),STA(NEXT) 
STA(NA),STA(MINTS),LDA(SPHI).FMU(SPHI ) ,STA(T11) 
ENA(C). STA(MISTAKE*U) , ST A (M I  STAKE +  5)  , ST A (MOVE ) , ST A ( NOW ) 
STA(LOCATE) 
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ecx  7 

C  START  SET  UP  FOR  INTERACTION  SUBROUTINE 
CON( 1  )=U.820781099625E-02 
CON { 2 )=1. 0890625689 35F-01 
C0N(3)=U.U888  72968795E-01 
C0N(U)*8.659570911259E-01 

HilU8:2limni 

LDA( W*2),STA(W+3),LDA(W*1),STA(W*U) 
CC     READ  IN  POTENTIAL  PARAMETERS 

READ  INPUT  TAPE  2,   50 , ( XC  I  I  )  1*1,6) 
50  FORMAT(10X,6F10.5/) 

C1=1.0E-10»SPHI 

C2=XC( 1)«1.6021E-19«EXPF(XC(2) ) 
C3=XC(2)/C1 

CU= 1. 6598 E-27»FMASS» 0.25 

C5=1.0E-1U/C1 

C6=0.5E10»C1 

C7=C1«C1 

C8=1.0/C1 

C9*XC(1)*1.6021E-19 

C10=1.0/(FMASS»0.5180076  15CC) 
C  END  SET  UP  FOR  INTERACTION  SUBROUTINE 

BOXES. 8  AND  9 

MASKW777000003 

MASK2=77770000C00008 

MASK3=77777777C00C0B 

MASK»4  =  70000000077770B 

MASK5=1 

MASK6=100000000000C00B 

MASK7=2«MASK6 

MASK8=7677777777777777B 

ALFA-1.0E-6 

USE  OF  SENSE  SWITCHES      SELECTIVE  JUMPS) 

UP, UP, UP    READ  BINARY  INPUT  OF  INTERRUPTED  PROGRAM 

UP, UP, DOWN  WRITE  BINARY  CUMP  ON  TAPE  7  FOR  REGENERATION 

UP,DCWN,DOWN    READ  IN  NEXT  PARTICLE  IF  THE  TIME  IS  RIGHT 

DOWN, UP, DOWN  JUMP  TO  8001  WRITE  OUTPUT  AND  RETURN  TO  116 

DOWN, DOWN, UP  AT  116,  IF  SATISFIED, GO  ON  TO  100,  OTHERWISE  JUMP  TO  END, EN 

UP, DOWN, UP  WILL  WRITE  TAPE  0  BINARY,  BUT  NOT  THE  BCD  PART  OF  OUTPUT. 

WHILE  PRINTING  OUTPUT,  IF  WE  PUT  STOP  SWITCH  1  UP, IT  WILL  STOP  AT  THE  EN 

OF  THE  OUTPUT  TO  ENABLE  LS  TO  RESET  THE  PROPER  SW I TCHES, ETC. 

BOX  10 

SLJ1(80),SLJ(91) 

80  SLJ2(81 ),SLJ(91) 

81  SLJ3(90),SLJ(91  ) 
90  REAC  TAPE  7,MINTS,MNTS,LfAX , B, LB , TLA  ST, TENERGY, CENERGY, ENERGY, TSL , 

1TSLI,NTSC,TTIME,MISTAKE,VENTRY,ZENTRY,NEXT,NA,EPB,LULL,IX,IY, IZ,A, 


2SPHI , FMA SS, JPB, MNP, LAST, t MA X,VMCM, CO LC,E FOUND 
REWIND  7 


91  DO  9000  N=MINTS,MNTS 
WRITE  OUTPUT  TAPE  3 ,8 100 , TENERGY, N, I  ENERGY, ENERGY 
WRITE  OUTPUT  TAPE  U.8 100 .TENERGY, N, I  ENERGY, ENERGY 

8100  F0RMAT(F15.9,2I8,F15.9) 

IENERGY=0 
C      THIS  IS  THE  START  OF  THE  MAIN  DO  LOOP  CF  THE  PROGRAM,  THE  ONE  CN  TIME 

STEPS.   WE  CAN  CHECK  THE  CURRENT  TIME  STEP  BY  STEPPING  THE  160U  AND 
C     NOTING  THE  CONTENTS  OF  INDEX  REGISTER  6. 

SLJ1 (82),SLJ(93) 

82  SLJ2(83) ,SLJ(93) 

83  SLJ3I93) 

92  WRITE  TAPE  7 , N,MNTS,LMAX ,B , LB , TLAST, TENERGY , CENERGY, ENERGY.  TSL  , 
IT SL 1, NTSC. TT IME.M 1ST AKE, VENTRY.Z ENTRY, NEXT, NA,EPB, LULL, IX, IY, IZ, 
2A,SPHI,FMASS, JP8,MNP,LAST,EMAX,VMCM,C0LD,EFCUND 

REWIND  7 

93  CONTINUE 
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BOX  11 


SLJ1 ( 100),SLJ2(8 

85  SU3( 100) ,SLJ(80 

116  SLJ1 (9999),SLJ2( 

100  LDA(NEXT),INA(-1 

115  ENA6(1B).DVI (LUL 
120  RAO(LMAX),LILl(L 
900  READ  INPUT  TAPE 
500  FORMAT(6F10.6) 

YENTRY(NEXT)=B(2 
ZENTRY(NEXT)=B(3 
RAO(NEXT) 
ZZ(  1 )  =  TANF( ALPHA 
FMU(ZZ-H)  STA(Z 
ZZ(3)=TANF(  BETA 
FMUtZZ+3)  FAC(Z 
B(4,LMAX)=SGRTF( 
B(5,LMAX)=B(4,LM 
B(6,LMAX)=B(4,LM 
8(3,LMAX)=B( 3,LM 
B(2,LMAX)=B(2,LM 
125  OENERGY=OENERGY+ 
TENERGY=TENERGY+ 
EPB=B(7,LMAX) 
TSL=A*0. 71972745 
♦LDA(NA), INA(-30 
STA1 (TSLI ),ENA6( 


5) ,SLJ( ICO) 

CI) 

9999) ,SLJ3(1C0) ,SLJ( 9999) 

)  ,AJP( 12C),SLJ 1(84),  SLJ( 110) 

THeSwaJ:  J  .AJP(8001  ),AJP2(  1  30)  ,SLJ(8001  ) 
L),QJP1( 130) ,LDA( NEXT), SUB (MNP), AJP(  120) ,AJP2(  13C) 
MAX),ENA (2),STA1(LB) , LDA (-2 .0 ) , STAl ( TLAST) 
2,500,  (B(I.LMAX)  1*1  , 3 ) , B( 7 ,LMAX ) , ALP HA, BETA 

,LMAX) 
,LMAX) 


) 

Z*2) 

) 

Z+2) 

B(7, 

AX)* 

AX)* 

AX)- 

AX)- 

B(7, 

8(7, 


FAC(l.O)   STA(ZZ*2) 
LMAX)»C10/ZZ(2)) 
ZZ(1  ) 
ZZ(3) 

B(6, LMAX)/B(4,LMAX) 
B(5,LMAX)/P(4,LMAX) 
LMAX) 
LMAX) 


88/SORTF (ABSF(B(7,LMAX)/FMASS) )«TFAC 
),*AJP(L+1),AJP2(l40 ),LIL1(NA),LDA(TSL) 
0),STA1 (NTSC),RAC(NA) ,SLJ(140) 


BOX  12 

130  ENA6(0),ENQ(0),DVI(  JPB) , CJP1 (140) 

135  TSL=A»0.7197274  5  88/S0RTF(ABSF(ENERGY/FMASS) )«TFAC 

♦LDA(NA),INA(-30),+AJP(L+1 ).AJP2( 1 UO ) 

LI  LI  (NA) ,LDA(TSL) ,STA1  ( TSL I ) , ENA6 (0)  ,ST A  1  ( NTSC ) , RAO(NA ) 


BOX  13 


140 


LDA(TTIME),FAD(TSL),STA(TTIME) 

LDAIOENERGY), FMU(l.Ol)  ,F SB ( T ENERGY) , A JP ( 1 55 ) , AJP3 ( 1 50 ) ,LDA ( 0  .C  ) 
FSB  (OENERGY).FMU(  0.99.)  ,  FAD  {  T  ENERGY  ) ,  AJP(  155)  ,AJP2(  155) 
150  RA0(MISTAKE+1) 


BOX  14 


155 


ENA6(0),INA(-31) ,+A JP2 ( L  +  3 ) , LDA ( ENER GY ) , IN  1 6 (- 1 ) , STA6 ( EMAX ) 
♦INI6( 1),+LDA(0.0),STA(ENERGY),STA(TENERGY) 
DO  160  L=1,LMAX 
TENERGY=TENERGY*B(7,L) 
fLDAU(LB) ,SCL(MASK5) ,STA4(LB) 
160  CONTINUE 


BOX  15 


OF  THE  MAJOR  00  LOCP  CN  THE  PARTICLES 


165 
161 


164 


THIS  IS  THE  START 

DO  8000  L=1,LMAX 

WITHIN  A  PARTICULAR  TIME 

ALL  THE  PARTICLES  IN  THE 

SIDERED  BY  STEPPING  THE 

LDQ4(LB),LDL(2B) , A JP ( 8C0C ) ,LDL (77771 B),AJP1 (8000) 

LDL(MASK7),AJP1(8C00) 

DO  161  K=l,50 

LATER(K)=0 

ENA( 1),STA(NZ),ENA(2) , STA ( INMI N ) , ENA (0) 

DO  164  K=l,20 

ENA(0),STA3(NUM) ,STA3 ( KH IT ) , STA 3 ( LAS T ) , 

STA3(DSTANCE) ,STA3(TMIN) 

CONTINUE 

SIL4(ITEMP),LIL5(ITEMP) 

THIS  IS  THE  END  OF  THE  USE  OF   L   AS  SUCH 


STEP,  THIS  IS  THE  START  OF  THE  MAIN  CC  LOOP  OV 
LATTICE.   WE  CAN  TELL  WHICH  PARTICLE  IS  BEING 
16C4  AND  CHECKING  INDEX  REGISTER  4. 


STA( INPUT) 


LCA(C.0),STA3(T) 


FOR  THE  REST  OF  THE  CC  LCCP 
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BOX  16 

200  ENA(C),STA(IN3) , ENA5 ( 0 ) , A JP ( 2  77 ) ,ENI 3(2) ,SIL5(NUM*1) ,SIL5(KHIT+1) 

LDQS(LB),LDL(MASK7) ,AJPl (277) 

NPAIR=1 

DO  201  1  =  1,3 
201 


liUlBU.M) 

00  2C3  JaltUMAX 

LDQ2(LB),LDL(77771B),AJP1(2C3) 


00  2C2  1=1,3 

IF( ABSF(B( I, J)-T(I  )  J-1.5WA)   202,20  3,20  3 

202  CONTINUE 

SIL2(  ITEMP),LAC(  I  TEMP  )  ,  I  l\A5(  0)  ,  A  JP  (2  03  )  ,  ENA2  (0  )  ,  ST  A3  (  Nil*  )  ,  IN  I  3  (  1  ) 

203  CONTINUE 

INI3(-1),ENA3(0) ,STA(KMAX),INA(-2),AJP3(277),ENA(0),STA(  IN3) 
STA(NFACE) 

BOX  17 

DO  215  K=1,KMAX 
LDA3(NUM> ,STA(ITEMP) 
T1=B(1,ITEMP)-B( 1,M) 
T2=R(2,ITEMP)-B(2,M) 
T3=B(3,ITEMP)-8(3,M) 
TU  =  B(U,ITEMP)-BU,M) 
T5=B(5,ITEMP)-B(5,M) 
T6=B(6,ITEMP)-B(6,M) 
T7=TU«TU+T5»T5*T6»T6 
T8=T1*T1+T2«T2+T3«T3 
L DA ( T7), FS B( ALFA ) ,AJP3( 21U ) 
T9=T1»T4+T2*T5+T3*T6 

LDA<  1.0),FDV(T7) ,STA ( T 10 ) , LAC( T9 ) , FM U ( Tl 0 ) ,  ST A3 ( TMIN ) 
DSTANCE(K)=SQRTF(ABSF(  (T1+TU«TMIN(K)  )«(T1+T«4«TMIN(K)  )-MT2+T5*TMIM 
IK)  )*(T2  +  T5*TMIN(K))-MT3+T6*TMIN(K))»(T3-»-T6»TMIN(K)  )  )  ) 
FSB(SPHI),AJP(21U)  ,AJP2(21«4) 

T(K)=TMIN(K)-SGRTFUBSF(TMIN(K)*TMIN(K)-{T8-T11 )/T7) ) 
LDA3(T),FSB(TSL) , AJP( 2 1U ) , A JP2 ( 2 1U ) . FAC ( TSL ) ,FAC ( TSL ) , AJP3 { 2 1U ) 
LDA3(T),FDV(TSL) ,  FSB ( 0. 9^999 ). AJP ( 21 2),AJP2(21U) 
LIL1 ( ITEMP),LDA3(T) , FAD( TT I  ME ) ,FSB (T SL J , FSBl ( TLA ST ) , AJP( 2 1 U ) 
AJP3(21U),LDA3(T),FAD(TTIME),FSB(TSL ) , FSB5 ( TL AST ) , AJP { 21 U ) 
AJP3(21U) 
RAO(  IN3),SLJ(215) 
LDA(TSL) ,FMU( 1.0E+2),STA3(T) 
CONTINUE 

BOX  18 

LDA( IN3) ,AJP1 (216),SLJ(2  77) 
216  LDA(KMAX).INA(-1 ) , STA ( J A ) , LC A ( TSL ) ,F MU( 1.CE+3) ,STA(TEMP) 

DO  217  K=2,KMAX 

LDAi(T) ,FSB(TEMP),AJP2(2  17),LDA3(T),  STA ( TEMP ) , SI  L3 ( KM  IN) 
2fl7    CONTINUE 

LIL1  (KMIN),ENI2(2),LDA(TSD,FMU<CUT0FF),STA(T1  ) 

DO  219  K=1,KMAX 

LDA3(T),FSBKT),FSB(Tl),AJP(2ie),AJP2(2l9) 

218  LDA3(NUM) , STA2 ( KHIT ) , IN  I  2 ( 1) 

219  CONTINUE 

INI2(-1),SIL2(NMAX),LDA( INPUT  )  ,  A  JP  1(  301) ,SIL2(INMAX) 

DO  300  K=l, INMAX 

LDA3(KHIT),STA3(LAST) 

300  CONTINUE 

301  RAO(  INPUT),LDA{NMAX),INA(-1) , A JP 1 ( 220 ) ,SL J ( 277  ) 

220  ENA(2),STA(JA),ENA{0)  ,STMNHIT)  ,LDA(  O.C)  ,STMELCST) 


211 
212 


213 
214 
215 
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BOX  19 

DO  351  K-l.NMAX 

J=KHIT(K) 

00  351  1=1, U 
351  SAVE( I,K)«B(I+3, J) 

DC  43C  1=1,7 
U30  COLD( I)=0,0 
221  J=KHIT(JA) 

224  LDQ2(LB),L0L(MASK1) , +AJP < L+2 ) , ENA( 3) ,-STA(NPAIR) 
DO  2U5  K=1,KMAX 
LAC3(NUM),INA2(0),AJP(2U6) 

245  CONTINUE 

246  PAR=CSTANCE(K)»1 .0E-10 
DO  2k0    1=1,3 

B( I,J)=B(I, J)+B( I+3,J)«T(K) 
LDA( JA),INA{-2),AJP(225) 
B(I,M)=B(I,M)+B< I+3,M)»(T(K)-TIME) 
SLJ( 240) 

225  B( I ,M)=B( I,M)+B(I+3,M)«T(K) 
240  CONTINUE 

TIME=T(K) 

LDA2(LB),SCL(MASK7) ,STA2(LB) 
380  CALL  INTERIM, J, PAR) 

TLAST( J)=TTIME-TSL+TIME 
805  DO  227  1=1,7 

COLD(I)=COLD( I )+DEV(  1,1) 
227  B( I, J)=DEV( 1,2) 

C0LD(7)=0.0 

EL0ST=B{7,J)-SAVE(4,JA)+ELCST 

SLJ(221) 
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RGX  20 

T2=B(7.M)-ELOST 

AJP(356),AJP2(229) , LDA {0 .0 ) , STA( TEMP ) , ST A{ TEM) 

356  DO  357  I=U,7 

357  B(  I,M)=0.0 
LDA(T2) , AJP(229) 
CO  358  K=1,NMAX 
J=KHIT(K) 

520  DO  352  1=1,3 
TEMP=TEMP*SAVE(  I  ,K ) »SAVE ( I ,K  ) 
TEM»TEM+B(I+3,J)«E( 1^3, J  ) 

352  CONTINUE 

358  CONTINUE 
TEMP=TEMP/TEM 
STUPID=SQRTF(ABSF(TEMP)) 
DO  355  K=2,NMAX 
J=KHIT(K) 

521  DO  35U  1  =  4,6 

354  B(I ,J)=STUPIO»B( I, J) 
B(7,J)=B(7,J)»TEMP 

355  CONTINUE 

229  TEM=NHIT 
TEM=1.0/TEM 
DO  359  1=1,3 

359  B(I,M)=COLD( I)»TEM 

LDA(T2),AJP(231) , AJP3 ( 23 1 ) , LDA ( SAVE* U ) , FSB( FTHRE SH ) , AJP2(503) 

LAC(SAVE+4),FMU(TURN) ,FAC(ELOST) , AJP ( L*2 ) , A JP2 ( L-H  ),SLJ(5C3) 

LDQ5(LB),LDL(MASK2) , ARS { 27 ) , STA( IL ) , LDA { 0.0 ) , ST A ( TEM ) 

CALL  SITE  (IL) 

DO  501  1=1,3 

TEMP  =  IB(I  ) 

SCALE(I)=TEMP«A-B(I .M) 

FMU1 (SCALE), FAD (TEM), ST A (TEN) 

501  CONTINUE 

LDA(TEM) , FSB (ALFA), AJP (5C3),AJP3( 503) 
TEM«SQRTF(ABSF(T2*C10/TEM ) 
DO  502  1=1,3 

502  B( I+3,M)=TEM«SCALE( I) 
B(7,M)=T2 

GO  TO  231 

503  LDA(NHIT) ,INA(-1  ),AJP1 (505) 
DC  504  1=4,7 

504  B( I,M)=DEV(I,  1) 
GO  TO  231 

505  TEMP=0.0 

DO  329  I=U,6 

LDA1 ( COLD ),FMU1( COLD) , FAC ( TEMP ) , STA( TEMP) 
329  CONTINUE 
R  (  7  M)=T2 
TEMP=SQRTF(ABSF(C10»B(7,N)/TEMP) ) 

230  B(I ,M)=COLD(I )*TEMP 
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BOX  21 

231  ENA(C),STA(NX),STA(NY) ,+LCA(NHIT) , A J P 1 (L  +  2) ,STA( IN3),SLJ(277) 
TLAST(M)=TTIME-TSL+TIME+TSL*PERCENT 
LOCATE=0 
TEMP=B(7,M) 

FSB(ETHRESH) , AJPtL+9) ,+AJP3(L+8) ,LDQ (MASK2) ,  LCL5UB) , AJP(L+U) 
♦ARS(3),STA(ITEMP)  ,LIU1  (  I  TEMP)  ,  LDAH  LE),SCL(UR),STA1(LB),LDA5(LB) 
SCL(MASK2) ,SST(2B) ,STA5(LR) ,+SLJ(51U)  ,+LDA( TEMP ), F SB ( THERMAL ) 
AJP2(L+l),SLJ(L+3)  ,LDC(M/>SKz),LDL5(LB),AJPl  ( 51 3 ) , SLJ ( L+23 ) 
+LDA5(LB),+SCL(2B) ,ST A5 ( LB ) , LDC( MASK  2 ) , STL ( I  TEMP)   • 
LDQ(MASK1 ) , STL (J  TEMP) ,LDA( J TEMP) ,AJP 1 ( L  +  6) , +  LDA( I  TEMP)  ,AJP( L*U) 
ARS(27),STA(  I  TEMP  )  ,  L  I  L  1  (  I  TEMP  )  ,  LOA  1  (  LB  )  ,  SCL  (  UB  )  ,  STAl  (  LB  )  ,  SL  J  (  L  +  U  ) 
+  ARS( 15) , ST A (JTEMP)  ,LIL1  ( JTEMP) ,LDA1  (LB) , SCL ( MASK 1 ),  STAl (LB) 
LDA5(LB),SCL(MASK3),LDQ(MASK6) ,STL(ITEMP),SCL(MASK6),STA5(LP) 
LDA(  I  TEMP) ,AJP1 <L+U),LIL1 (  NZ  ), ENA5(0 ) , ST Al { LATER ) ,  IN  I  1  (  1  ) 
+  SIL1 (NZ),+LDA(TEMP)  , A JP ( L  +  2  )  , A JP2 (L ♦ 1  ) , RAO( MI STAKE  +  3 ) , ENA ( C  ) 
STA(LOCATE) 

600  SIL5(MJ),ENA(1 ) , ST A ( MOVE ) , ENA ( 0 ) , STA ( NOW ) 
CALL  INVAC(MJ) 

ENA(C) , STA (MOVE) , LDA5 ( LB ) , SCL ( MASK7)  , STA5( L P ) ,L CC ( NOW ) , G J P ( 5 1 C  ) 
QLS(27) .STQ(NCWl  ) 

509  LDA5U8)  ,SSU(MASK2)  ,STA5  ( LB ) , L I L 1 ( NO W ) , LDC1  ( LB ) , LDL ( UB ) , AJP 1 { L  +  3  ) 
-LDA1  (LB)  ,S  STUB),  STAl  (LB)  ,S LJ ( 5 1 3 ) , +ENA ( 0) , STA ( MANY ) , ST  A ( NANY ) 

00  507  I=1,LMAX 

L0Q1 (LB),LDL(MASK2) , SUB(NCW1 ) ,AJP1 (5C7) ,LDL(MASKl ),AJP(508) 
ARS( 15), ST A (MANY), LOG ( NAN Y) , QJPl ( 507 ) , ST A( NANY ) 

507  CONTINUE 

508  ENA1  (0)  ,AJP1(L+U)  .  +  LILKNOW)  ,LCA 1 ( LB ) , SCL ( UP ) , ST Al  (  LB  ) ,  L  CC  (  NOW  1  ) 
SLJ(5C9) , LOA I  MANY ), SUB (NANY J  ,+AJPl (L+l ) , RAO ( MIST AKE+5 ) ,LDA(NANY) 
ALS(  15) ,STA( ITEMP),ENA5(C) ,ALS( 15) ,S TA ( JTEMP ), LDA5 (LB ), LOQ ( MASK  1  ) 
SSU( ITEMP),STA5(LB) ,  +  LI L 1 ( NANY ) , +  LDA 1 (LB), SSU (JTEMP), STA  1(LB) 
ENA1 (0) ,SUB(MANY),AJP(513),LIL1(MANY) ,SLJ(L-3) 

510  DC  511  K=1,JPMAX 
LDA3(M00N),STA(IL) , LDA(O.C) , ST A3 (DST ANCE ) 
CALL  SITE  (ID 

DC  bll  1=1,3 

TEMP=IB( I  ) 

TEMP=B( I,M)-TEMP»A 

511  DST ANCE (K)=DSTANCE(K)+TENP« TEMP 

1  =  1 

DO  512  K=2,JPMAX 

LDA3(DSTANCE),FSB1 ( DSTANCE ) , AJP3 ( L+l ),SLJ(512),SIL3(IT),LIL1(IT) 

512  CONTINUE 

LD01 (MOON) ,STQ( NOW) ,OLS ( 27 ) , STC ( NCWl ) .SLJ(5C9) 

LDA ( LOCATE), A JP1 ( 51 6 ) , LDA ( T2 ) , A JP ( L+2 ) , A JP2 ( L*l ) , RAO( MI STAKL  +  3  ) 
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14 
IS 


516 
233 


283 
236 


237 
526 


238 


ENI1 

m 

FSB( 
SCL( 
LDA3 
AJP( 
STL( 
STA( 
SCL( 
RAO( 
LDA3 
LDL2 
SLJ( 
LIL2 
ENA1 


(2) 

miu 

ETHRESH 

MASK2), 

(LB), SC 

L+1)  ,AJ 

ITEMP), 

JTEMP), 

MASK3), 

NZ) .SLJ 

(LB) ,SC 

(LB),AJ 

600) 

(NAVY), 

(0),SUB 


BOX  22 


STA(  IT),LIL2(  IT) 

)  ,AJP(L  +  9) ,+AJP3(L+8) ,LDQ (MAS K2) .LCA2( LB) , STL ( ITEMP) 
SST(2B)  ,  STA2(L8),LDA(  ITEMP),AJP(233),ARS(3),LIU3(ITENP) 
L(UB)  .STA3(LB),+SLJ(233),  +LCA(T1  ) , FSB (THERMAL ) 
P2U+17)  ,LDC(PASK2)  ,LDA2(  LB  )  , SCL ( 2B  )  , ST A2 ( LB ) 
LDG(MASKl  ), STL (J  TEMP) ,L DA (JTEMP ),AJP(L+8),ARS(15> 
LIL3( JTEMP) ,LCA3(LB),SCL( MASKl ),STA3(LB) ,L0A2(LB) 
SST(MASK6),STA2(LB),LIL3( NZ),ENA2(0) , ST A3( LATER) 
(233) ,LDA{ ITENP),ARS(27),STA(ITEMP).LIL3(ITEMP) 
L(4B)  ,+SLJ(L-€) ,  + LOG (MASK  2) , L0A2(LB) , SST ( 2B ) , ST A2 ( LB ) 
PI (233) , SI L5( LOCATE) , S IL2 (NAVY ) , L I L5 ( NAVY ) , SI L 1 ( MAC ) 

LIL5(LCCATE),LIL1 (MAD) 

(NMAX)  ,AJP(23i4),INIl(l),SLJ(515) 

BOX  23 


23U  LDA(NHIT),AJP1 (241 ) ,LDA(C.O) , STA ( ZZ+ 6 ) , SL J ( 283) 
2U1  DO  282  NN=1,NMAX 

J=KHIT(NN) 

DO  280  K=1,KMAX 

LAC3(NUM),INA2(C),AJP(28D 

280  CONTINUE 

281  LDA(NN), INAl-1 ) ,  +  A JP ( L>2 ) , LDA3 ( T ) ,-STA  (  T I  ME ) 
DO  235  1=1,3 

235  B(  I,J)=B(I,J)-(TIME  +  ZZ(6)»1.0E+1U)»B( I +3, J) 

282  CONTINUE 


BOX  24 

GO  TO  (277,277,236,277) ,NPAIR 

DO  238  K=2,NMAX 

J=KHIT(K) 

T2=B(7,J) 

FSB (ETHRESH) ,AJP(526)  , A JP3 (526 ) , LDC2  (LB) , LDL ( MASK2 ) , AJP{  238) 

STA(  ID,  LDL  (MA  SKI)  ,AJP(238)  ,STA(LL),  LCA2  (  LB  )  ,  SCL  (  MASK  3  ) ,  STA2  (  LB  ) 

LDA(LL),ARS(15),STA(LL) 

T4=B(7,LL) 

FSB ( ETHRESH ),AJP3(L  +  7) , L I L 1 ( LL ) ,LDA1  ( Le  ) , SCL ( MASK 3 ) ,STA1 (LB) 

LDA(  IL),ARS(3) ,STA(  IL),LIU1<  IL),LDA1  (LB)  , SCL ( 48 ) , STA 1 ( LB ) , SLJ (238) 

LIL1  (LL) ,LDA1  ( LB  )  ,SCL ( MASK1 ) , STAl(LB) ,LDQ(MASK7 ) , STL ( IT) ,LDA(  IT) 

AJP(238) ,LDA(  IL),ARS(27)  ,  +  STA( ID 

CALL  SITE  (ID 

DO  237  1=1,3 

TEMP=IB( I ) 

B(  I,LD=A*TEMP 

GO  TO  238 

LDQ2(LB),LDL(MASK1 ) , A JP ( 238 ) , ARS  (  1  5)  , STA ( LL ) , L I L 1 ( LL) 

T4=B(7,LD 

FSB { ETHRESH ),AJP 3 ( 238 ),LCA1( LB ),SCL(  MASK3 ) , STAl ( LB ) ,LDA2(LB) 

SCLtMASKl ),STA2(Le) 

CONTINUE 

BOX  25 


277  LDA(  IN3),AJP1 ( 200 ) , LDA ( I NMI N ) , SUB( IN  MAX ) , AJP ( 302 ) , AJP2 ( 303 ) 
302  M=LAST( INMIN) 

RAO(  INMIN)-,LDQ5(LB)  , LDL  (N  ASK  6)  ,AJP1(  277)  ,SLJ(20C) 
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BOX  26 

303  DO  3C5  J=1,INMAX 
K=LAST(J) 

LDQ3(LB) , LDL(MASK6) ,  AJP1 (525) 
DO  304  1=1,3 

304  B( I,K)=B( ItK)+B( H-3,K)»TSL 
LDA3(LB),S$T( 1B).STA3(LD) 

525  IF(ENERGY-B(7,K) )  350,305,305 
350  ENERGY=B(7,K) 
IENERGY=K 

305  CONTINUE 

BOX  27 

LDA(NZ), INA(-l) ,AJP(262),AJP3(262),STA(IT1) 

DO  261  IT=1. IT1 

MJ=LATER( IT) 

CALL  INVAC(MJ) 

ENA(0),STA( IU),SIU6(IU)  LDA(MJ)  RAD(IU) 

WRITE  TAPE  6,  IU, (B(I,MJ)  1  =  1,3) 

261  CONTINUE 

'   BOX  28 

262  DO  7998  J=1,INMAX 

LDA2(LAST),STA(ITEMP),LIL5( I  TEMP  ) , LDQ5 ( LB ) , LDL ( M ASK7 ) , AJP 1 ( 7999 ) 

250  DO  252  1=1,3 
IF(b(I,M)-AB( I) )  251,251,254 

251  IF(B(I,M))  255,252,252 

252  CONTINUE 
GO  TO  307 

254  ENA1  (0),ALS(1  ),STA(NFACE)  ,SLJ(252) 

255  ENA1  (0),ALS(  1  ),INA(-1  )  , STA (NFACE) ,SLJ(252) 

307  LDA(NFACE),AJP(7998),ALS(36)  ,  INA6(0>  , ALS(3),STA(ITEMP),LDA5(LB) 

L0Q(MASK4)  ,SSU(  I  TEMP ) , LDC ( MA SK2 )  ,STL  (I  TEMP)  ,LDQ(MASKl  ),STL(JTENP) 
SCL(MASK3),STA5(LB) , EN  A ( C ) , ST  A (NFACE ) , LDA{ JT EMP )  , A JP  1  ( 33  1  ) 
LDA(  ITEMP),ARS(27),STA( I  TEMP)  ,LIL1(ITENP),LDA1(LB),SCL(4B) 
STA1(LB),SLJ(7998) 

331  ARS(  15),STA( JTEMP) , LI L 1 ( J TEN P ) , LDAl ( LB) ,SCL(MASKl ),STA1(LB) 
7998  CONTINUE 

8000  CONTINUE 
C      THIS  IS  THE  END  OF  THE  MAJOR  DO  LOOP  ON  THE  PARTICLES 

BOX  29 

ENA(0),STA( IT),SIU6(IT) 

DO  9C00  L=1,LMAX 

LDQU(LB) ,LDL(2B) , A JP ( 309 ) , S I L4 ( I T) 

WRITE  TAPE  6,IT,(R(I,L)  1=1,3) 
,309  LDQU(LB),LDA(MASK8) ,STL4(LB) ,LDL(777  71B) ,AJP1 (9000) 
*     LDL(MASK7),AJP1 (320) 

DO  310  1=1,3 
310  B(  I,L)=B(I,L)+B( I  +  3,L)»TSL 

DO  312  1=1,3 

IF(B( I,L)-AB( I) )  311,311 ,314 
31  1  IF(B(I,L) )  315,312,312 
312  CONTINUE 

GO  TO  257 

314  ENA1(0),ALS( 1 ) , STA ( NFACE ) , SL J ( 3 1 2 ) 

315  ENA1  (0).ALS( 1),INA(-1),STA(NFACC),SLJ<312) 

257  LDA( NFACE), AJP (320) ,ALS( 36) ,  INA6(0), ALS ( 3 ) , STA (  I  TEMP ) , LDA4 ( LB ) 

LDQ(MASK4) ,SSU( I  TEMP) ,LDC(MASK2),STL (I  TEMP) ,LDG(MASK1),STL(JTEMP) 
SCHMASK3)  ,STA4(LB)  ,ENA(C)  ,  STA  ( NFACE  )  ,  LD  A  (  JT  EMP  )  ,  A  JP  1  (  33  2  ) 
LDA(ITEMP),ARS(27),STA(ITEMP),LIL1(ITEMP),LCA1(LB),SCL(4B) 
STAl(LB) ,SLJ(320) 

332  ARSt 15) ,STA( JTEMP), LI  LI (JTEMP) ,LCA1  (  LB ) , SCL ( MASK  1 ) , STA 1 ( LB ) 
320  IF(ENERGY-B(7,L) )  3 1 6, 90CC , 9000 

316  ENERGY=B(7,L) 
IENERGY=L 

9000  CONTINUE 
C      THIS  IS  THE  ENC  OF  THE  MAJOR  DC  LOOP  ON  THE  TIME  STEPS 
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BOX  30 

8001  WRITE  TAPE  8  ,  I  X,  I  Y,  I  Z  ,  AR  ,NL  I  NE  ,  NPLAN  E  ,  MAXLAT  ,  LMAX  ,  A,  SPH  I  ,  FMASS  , 
1 ETHRE SH, THERMAL »EPB, LULL, ALPHA, BETA,  N   , MNT S  ,  T T I ME , TSL I , NTSC  , 
20ENERGY,TENERGY, MISTAKE,      YENTRY, ZENT RY ,N A , EMAX, EFOUND 
WRITE  TAPE  8, (LB(L) , (R( I ,L)  1=1,7)  L=1,LMAX) 
REWIND  8 

♦  SLS1  (L*l ),+SLJl (l  +  l ),SLJ(L  +  2)  »SLJ2<  L  +  1)iSU3(9998) 
WRITE  OUTPUT  TAPE  3,  WlfTUMB 

9951  FORMATt 1H1.19H  THE  TOTAL  TI"E  IS    F13.7,7H  JIFFYS  ) 
WRITE  OUTPUT  TAPE  3,  9952, TSL 

9952  FORMAT(25H  THE  TIME  STEP  LENGTH  IS   F13.7,7H  JIFFYS) 
IF{N)   9974,9974,9973 

9973  WRITE  OUTPUT  TAPE  3  ,99 53  ,  ENERGY , N 
GO  TO  9972 

9974  WRITE  OUTPUT  TAPE  3 , 9953 , ENERGY , MNTS 

99530FORMAT(9H  ENERGY=   F15.7,15H  ELECTRON  VOLTS/14,  27H  TIME  STEPS  HAV 

IE  BEEN  TAKEN   ) 
9972  WRITE  OUTPUT  TAPE  3 , 9954 , T EN ERGY , OEM ERGY 
99540F0RMAT(21H  THE  TOTAL  ENERGY  IS   F12.7,15H  ELECTRON  VCLTS/24H  THE  0 

1RIGINAL  ENERGY  IS  F12.7.15H  ELECTRON  VCLTS) 
IF(MISTAKE( 1 ) )  9955,9955,9956 

9955  WRITE  OUTPUT  TAPE  3,9957 

9957  FORMAT(30H  THE  ENERGY  CHECK  DID  NOT  FAIL   ) 
GO  TO  9965 

9956  WRITE  OUTPUT  TAPE  3 ,9959 , MI  ST AKE ( 1 ) 

9959  F0RMAT(24H  THE  ENERGY  CHECK  FAILED  I4,16H  DIFFERENT  TIMES) 
9965  IF(MISTAKE(2) )  9961,9961,9962 

9961  WRITE  OUTPUT  TAPE  3,9963 

9963  F0RMAT(62H  NO  I NTERST I T I ALS  OR  VACAMCIES  OCCURED  ALONG  AN  ECGE  OR 
1C0RNER   ) 
GO  TO  9805 

9962  WRITE  OUTPUT  TAPE  3  ,9960  , MI  STAKE ( 2 ) 

9960  F0RMAT(60H  AN  INTERSTITIAL  CR  VACANCY  CCCURRED  ALONG  AN  ECGE  CR  CO 
1RNER   I4,16H  DIFFERENT  TIMES) 

9805  IF(MISTAKE(3) )  9800,9800,980  1 

9800  WRITE  OUTPUT  TAPE  3,9803 

9803  F0RMAT(36H  NO  NEGATIVE  ENERGIES  WERE  CCMPUTED     /) 
GO  TC  107 

9801  WRITE  OUTPUT  TAPE-  3,9804  ,M  I  STAKE  {  3) 

9804  F0RMAT(31H  A  NEGATIVE  ENERGY  WAS  COMPUTED    I4,16H  DIFFERENT  TIMES 
1     /) 

107  IF(MISTAKE{4) )   170,170,172 

170  WRITE  OUTPUT  TAPE'  3,171 

171  F0RMAT(37H  NO  FALSE  INTERSTI TI AL S  WERE  FCRMEC      /) 
GO  TO  174  . 

172  WRITE  OUTPUT  TAPE  3  ,  17 3 , M I  ST AKE ( 4  ) 

173  F0RMATU3,  34H  FALSE  INTERST ITI  ALS  WERE  FORMED      /) 

174  WRITE  OUTPUT  TAPE  3 , 1 75 , M ST AKE ( 5 ) 

175  FORMATUOH  WE  FORMED   ,IU,22H  TRIPLE  INTERST  I  TI  ALS      ) 
WRITE  OUTPUT  TAPE  3  ,  108 ,  IX , I Y, IZ 

,  1080FORMAT(35H  THE  DIMENSIONS  OF  THE  LATTICE  ARE   //13H  X  DIRECTION 
112, 7H  UNITS    /13H  Y  DIRECTION    12, 7H  UNITS   /13H  Z  DIRECTION 
212, 7H  UNITS    ) 
WRITE  OUTPUT  TAPE  3,106 
106  F0RMAT(87H     L       X  Y  Z  VX         VY 

1      VZ         E  LB(L)/) 

DO  1C25   L  =  1  ,  LMAX 
1025  WRITE  OUTPUT  TAPE  3  , 1 03, L , ( B ( I , L )  1=  1  ,7 ) , OCT AL ( L ) 
103  FORMAT( 1 X, I  4, 7F 1 0.4 ,01 9 ) 

9998  ENA6(0),AJP(9990),SLS1  (  1  16) 

9990  WRITE  OUTPUT  TAPE  3,9991 

9991  FORMATt///  32H  THE  RUN  WENT  THE  FULL  DISTANCE     ) 

9999  JT=-1 

WRITE  TAPE  6,JT 

REWIND  6 

END 
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eox  31 

SUBROUTINE  SITE(y) 

DIMENSION  B(7,15CC) ,LB( 1 5CC) ,OCTAL(1 500), FH3), 16(3), T(?0) 
DIMENSION  TMIN(20)  ,  I  FACE  (3) , MI  STAKE (  10)  ,  MCCM  15)  ,NCON(  1  0  )  ,  w  ( *4 ) 
DIMENSION  XC(6  ) , XP ( 2C ) , ZZ ( 1 5 ) , CCN(U ) , CE V ( 7, 2 ) , AP ( 3 ) 
DIMENSION  DSTANCE(20) 

COMMON  B,LB,OCTAL,FI , IP, T,TMIN, I  FACE  , M I  ST AKE , MOON ,NOON , W , XC  ,  XP , Z Z 
COMMON  CON,DEV,AB,A,NPLANE ,NL I NE , LMA X.MASK 1  , MASK 2 , MASK 3 , NA SKU 
COMMON  I  TEMP, JTE MP, MT EMP ,N Tl MP , IN2,IN3,IL,JA,JB,JC,JK,JL,JM,JP,JR 
COMMON  JTf  Jfc,MMfKMIN,MAX,TE^P,M,JPMAX,NIF,IXfIY,IZ,NN,MAXLAT,JJ 
COMMON  IP,TE,TEM,Cl,C2,C3,CU,C5,C6,C7,Ce,C9,C10,Cll,C12,Tl,T2 
COMMON  DSTANCE.FMASS,  I3.TSL 
COMMON  MASK5,MASK6, MASK/, PASK8, MOVE, NC^ 
EQUIVALENCE  ( XP, TMI N) ,  ( L E , OCT  AD 
JT=M 

LDA( JT),INA(-1),ENG(0B),DVI(NPLANE). STA(IR+3),LLS(UR),ENC(0) 
DVI  (NLINE) ,STA(  IB  +  2  )  , CLS  (  1  )  , STQ (  IB  +  1  ) , ADD (I  6+3), ENQ(1),STL(JT) 
LDA( JT) ,AJP(23U0) ,RAO( IB+1 ) 
23U0  RETURN 
END 

BOX  32 

SUBROUTINE  INVAC(MJ) 

DIMENSION  B(7,15CC) ,LB( 1500)  , OCT  ALU  500 ) , FI ( 3 ) , I fi ( 3 ) , T ( 20 ) 

DIMENSION  TMIN(20), I  FACE (3), MISTAKE (  10) ,MCOM 15) ,NCON( 1 0  )  , W ( U  ) 

DIMENSION  XC(6  ), XP (20 ), ZZ ( 1 5 ) ,CCN (U ) ,DEV ( 7 , 2 ), AB ( 3  ) 

DIMENSION  DSTANCE(20) 

COMMON  B,LB,OCTAL,FI , IB,T,TMIN,I FACE ,M 1ST AKE , MOON, NOON, W, XC,XP,ZZ 

COMMON  CONfDEViABf  A, NPLANE tNLINE tLMAX,MASKl  ,MASK2,MASK3,MASKi4 

COMMON  I  TEMP, JTEMP, MT EMP ,NTEMP , IN2,IN3,IL,JA,JB,JC,JK,JL,JM,JP,JR 

COMMON  JT, JW, MM, KMIN, MAX, TENP,M, J PM AX, NIF, IX, IY,IZ,NN.MAXL AT, JJ 

COMMON  IP,TE,TEM,Cl,C2,C3,CUtC5,C6,C7,C0,C9,ClO,Cll,C12,Tl,T2 

COMMON  DSTANCE,FMASS, 13, TSL 

COMMON  MASK5,MASK6,MASK7,MASK8,M0VE, NOW 

EQUIVALENCE  ( XP , TMI N) , ( L6, OCT AL ) 

2360  IN2=0 
MM=MJ 

LILKMM)  ,LDA1  (LB),SCL(MASK2)  ,SCL(MASK6)  ,  SST  (  MASK7  ) ',  STA1  (  L6) 

2361  NIF=0 

LDA(MISTAKE+2) ,STA(MISTAKE+10) 

DO  2370  1=1,3 

IFACE(I)=0 

IF(AB(I )-A-B( I. MM) J  2375,2375,2365 
2375  ENA1 (CB),ALS( 1) ,STA1( I  FACE) , RAO(NIF)  ,SLJ(2370) 
2365  IF(B( I,MM)-A)  2380,2370,2370 

2380  ENA1 (OB) ,ALS( 1), INA(-1 ) ,STA1 (IFACE), RAC(NIF) 
2370  CONTINUE 

DO  2387  1=1,3 

IB( I  )=B( I,MM)/A 

TEMP  =  IB(I  ) 

IF(B(  I,MM)/A.-TEMP-0.5)  2387,2386,238  6 

2386  RAOK  IB) 

2387  CONTINUE 
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BOX  33 

IL=IB(3)*NPLANE+IB(2)*NLINE+IB( 1 )/2+l 

LDA(  IB-H  ),ADD( IB +2 ) ,ADD( IP  +  3) ,ENQ(  1)  , STL (I  TEMP)  ,  LDA(  ITEWP) 

AJP1 (2410),STQ(JM),SLJ<2415) 
2410  JM  =  0 
2415  LDA(  IB  +  2)  ,ADD( IB  +  3),ENCU),STL(JL),RSC(JL),LCA(JM) ,ADD( JL) 

+AJP3(L+3),LDA(IL),STA(NCW) , LDA(MCVE ),AJP1(2741),SLJ(24  3  2),RAC(IL) 
2432  JA=C 

On  2U5  1-1.3 

LOAM  IFAC£).AJP{ 2115) ,AJP3(2 115)  ,RAO (JA) ,INA(-1 )  ,STA(JW) 

AJP1  (2120) ,LDA1  (  I  FACE)  ,STA( JB),ENA(1  ) ,STA( JD) 
2115  CONTINUE 

LDA(  JA)  ,AJP(  2125)  ,SLJ(  21140) 
2120  RA0(MISTAKE+2) ,SLJ(214C) 

2125  ENA(C),STA(JB),STA(JD),LCA(JM),STA(JC),SLJ(214l) 
2140  JC=1 
21U1  ENA(  1  )  ,  STA( JK ) ,LDA( JM) ,MLI (6B)  ,MU I ( JD ) , I NA(  1 ) ,ADD( JB) .ADC (JO 

STA{ JW),lNA(-2) , AJP12447), AJP212  44  8) TENA(6) , STA( JPMAX ) , SL J ( 2700 ) 

2447  ENA( 15B) ,  STA( JPMAX) ,SLJ(2700) 

2448  LDA( JW) , INA(-1 IB) ,AJP3(2449) ,ENA( 1 18 ),STA( JPMAX) ,SLJ(270C) 

2449  ENA(5), STAt JPMAX) 

2700  CO  2698  1  =  1,  10 

2698  NOONU)  =  0 

DO  2699  1=1,15 

2699  MOON(I)=0 

BOX  34 

ENI1 (1 ) 

DO  2475  JP=1 .JPMAX 

GO  TO  (2701,2702,2703,2704,2705,2706,2707,2708,2709,2710,2711, 
12712,2713,2714), JW 

2701  GO  TC  (2455,2451,2452,2453,2454,2465)  ,JP 

2702  GO  TO  (2455,2451,2470,2456,2452,2453,2457,2458,2459,2454,2460, 
12461 ,2462), JP 

C2500  THIS  SECTION  IS  USED  WHEIV  THE  PARTICLE  SLCWS  DOWN  WITHIN  CNE  UNIT 
C      OF  AN  EDGE.   WE  CAN  NOT  CONSIDER  ALL  THE  NEAREST  NEIGHBORS  IN  A 
C      CASE  LIKE  THIS,  ONLY  CERTAIN  SELECTEC  ONES,  DEPENDING  ON  WHICH 
C      FACE  IT  IS  THAT  WE  ARE  NEAR. 

2703  GO  TO  (2455,2451  ,2452,2453,2454)  ,JP 

2704  GO  TO  (2451 ,2452, 2453, 245b, 2465), JP 

2705  GO  TO  (2455,2451  ,2453,2454,2465) ,JP 

2706  GO  TO  (2455,2452,2453,2454,2465) ,JP 

2707  GO  TC  (2455,2451 ,2452,2453,2465) ,JP 

2708  GO  TO  (2455, 2451, 2452, 24 54 , : 465 ) , JP 

2709  GO  TO  (2455,2470,2456,2457,2458,2459,2460,2461 ,2462) ,JP 

2710  GO  TO  (2455,2451 ,2452,2453,2454,2458,2459,2461,2462) ,JP 

2711  GO  TO  (2455,2451 ,2470,2453,2457,2453,2454,2460,2461 ) ,JP 

2712  GO  TC  (2455,2452,2453,2454,2456,2457 ,2459,2460,2462) ,JP 

2713  GO  TO  (2455,2451  ,2452,2453,2456,2457,2458,2459,2470), JP 

2714  GO  TO  (2455,2451 ,2470,2456,2452,2454 ,2460, 2461, 2462), JP 
24  51  LDA( JL) , ADD (N LINE ),ADD( IL),SLJ(2435) 

24  52  LDA( ID ,SUB(NLINE) ,ADD( JL) ,SLJ(2435) 
245  3  LDA(  IL ), ADD ( N PLANE )  ,ADD( JL ) , SL J ( 24 35 ) 
24  54  LDA(  1  L ) , SUB ( NPLANE ) ,ADD( JL ) , SL J ( 2435  ) 

2455  LDA( I L ) , SL J ( 2435 ) 

2456  LDA(  IL) ,SUB(NLINE) , INA ( 1 E ) , A 00 ( JL ) ,S L J ( 2435 ) 
24  57  LDA( IL) , ADD (NPLANE) , I NA ( 1 P ) , ADC ( JL)  ,  SL J ( 2435 ) 
2458  LDA( I L ), ADD( NPLANE ) ,ADD(NLINE)  ,SLJ(2435) 

24  59  LDA(  IL)  ,ADD( NPLANE) ,SUB(NLINE ),SLJ(2  435) 

2460  LDA(  IL) , SUB (NPLANE)  ,INA(  1  B  ) , ADC ( JL ) , SLJ ( 2435 ) 

2461  LDA(  I L), SUB (NPLANE)  ,ADC( NLINE),SLJ(2435) 

2462  LDA(IL) , SUB (NPLANE ), SUB ( NL IN E ) ,SLJ(2  435) 
2465  LDA(IL), INA (- 1  ) , SL J ( 24 35  ) 

2470  LDA(  IL) , ADD ( NLI NE) , ADD ( JL ) , I NA ( 1 ) 

2435  STA( I  TEMP)  ,AJP(2475  ),AJP3(2475),SUB(MAXLAT),4AJP(L-H),AJP2(2475) 

LDA( ITEMP),STA1 (MOON) , INI1 (  1  ) 
2475  CONTINUE 
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BOX  35 

I  Nil  (-1  ),SIL1(JPMAX)  , LDA (MOVE)  ,AJP1(2741  ) 
2480  ENA(  1  ),STA( JP) 

DO  2485  K=1,JPMAX 

LDA3(M0ON)  ,STA(  I  TEMP  )  ,  L I  L 1  (  I  TE  MP  )  ,  LD  C  1  (  LE  )  ,  LDL  {  4B  )  ,  A  JP  1(  2*4  85  ) 

ENQ1  (0) ,LIL1 ( JP)  ,STG1 (NOCN) ,RAO( JP) 
2485  CONTINUE 

LDA( JP), INA(-1 ),STA{ JK) 

BOX  36 


2490 
2U92 
2493 


2495 


2510 


2512 


2514 


2516 


2518 
2520 


LDA( JK) ,  INA(-1),AJP(2490),AJP2(25  10)  , LCA { IN2  ) , AJP 1 (2720) ,  SLJ( 2  60C) 

LDA(N00N+1 ),STA( ID 

CALL  SITE  (ID 

DO  2495  1=1,3 

TEMP=IB( I ) 

B( I ,MM)=A*TEMP 

CONTINUE 

ENA(3),STA(NI ) ,L ILl  (  I  D , L I L3 ( MM ) , LDA ( ID , ALS ( 27 ) , STA ( I  TEMP ) 

LDA3(LB) ,LDQ(MASK2) , SSU(  IT EMP ) , STA3(  LB), LDA 1 ( LB)  , SST ( UB ) , STA  1  ( LB  ) 

LDA(  IN2),AJP1 (2800) 

RETURN 

BOX  37 

DO  2512  K=l ,  JK 

LDA3(N00N) ,STA(ITEMP) ,  LDM  C.  0  ) ,  STA3(  CST  ANCE  ) 

CALL  SITE(ITEMP) 

DO  2512  1=1,3 

TEMP=IB( I ) 

TEMP=TEMP»A 

DSTANCE(K)=DSTANCE(K)+(TEMP-B(I  ,MM))  MTEMP-BU  ,MM)  ) 

ENI2(1 ) 

DO  251U  K=1,JK 

LDA3(DSTANCE),FSB2(DSTANCE) , AJP ( 2  514 ) , A J P2(  25 14 ) , S IL3  (  I  TEMP ) 

LIL2UTEMP) 

CONTINUE 

ENI5( 1 ),LD A2 (NOON), ST A5( NOCN), INI  5(1  ) 

DO  2516  K=1,JK 

LDA2(DSTANCE) ,FSB3(DSTANCE)»+AJP(L+1),AJP2(2516),+SIL2(ITEMP) 

LAC(  I  TEMP), INA3(0),AJP(2516) ,LDA3(N0CN) ,STA5(M00N) , INI5(  1 ) 

CONTINUE 

IN  I  5 (-1 ),ENA5(0)  ,  INA(-l) ,AJP1  (L+3) ,♦ LDA2 ( NOCN)  ,STA( ID f +SL J (2492 ) 

+ENA5(0) ,STA(MMAX) 

DO  2518  K=1,MMAX 

LDA (MM) ,SUB3(M00N) , AJP (2  520) 

CONTINUE 

ENA3(0), AJPU  +  3) ,LDA3(P0CN) ,STA(  IL ) , +SL J ( 249  2)  , +ENQ6 ( 0  ) , LCL ( MASK 5 ) 

+AJPl(L+2),LDA(M00N+2) ,STA( I L ) , SLJ (2 492 ) ,+LOA(MCCN+l ) ,STA( ID 

SLJ(2492) 
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BCX  38 


2600  Tl=C.O 

DO  2605  1=4,6 
2605  T1=T1+B( I,MM) 

ENA( 1 } ,STA( JA 

2620  T2=C.C 

DO  2645  K=1,J 
L0A3(M00N).ST 
DC  1700  1*1, L 
LD01  (LB), LOU 
LDA(TSL),FMU( 
1700  CONTINUE 

2621  CALL  SITEUTE 
DO  2625  1  =  1  ,3 
TEMP=IB( I ) 

2625  FI(I)=A«TEMP 
LDA( JA),AJP1 ( 
DO  2630  1=1,3 

2630  TMIN(K)=TMIN( 
GO  TO  2645 

2635  DO  2640  1=1,3 

2640  T2=T2+(8( I, MM 
TMIN(K)=-T2/T 

2645  CONTINUE 

ENA( 1 ) ,STA(KM 
DO  2660  K=1,J 
IF( TMIN(K)-TM 

2650    IF( TMINU+1  )- 

2655  KMIN=K+1 

2660  CONTINUE 

LIL1 (KMIN) 
LDA1 (TMIN) 
CALL  SITE 
DO  2665  1=1 
TEMP=IB(  I) 
FI ( I )=A«TEMP 

2665  T( I )=ABSF(B(  I 
LDA( JB) , INA(  1 
ENA( 1 ) ,STA(MA 
DO  2675  1=1,2 
LDA1 (T),FSB1 ( 

2675  CONTINUE 

DO  2680  1=1, L 
LDQ1(LB),LDL( 

2680  CONTINUE 

2686  STA(MM),ENA(  1 


»LD 

t+F 

(  IP 

,3 


*B(  I  ,MM) 

),LDA(T1 ) , A JP 1(2620) , EN  A ( 0 ) , ST  A ( J A ) ,SLJ(262C) 

PMAX 

A(I TEMP) ,ALS(27 ),STA( JTEMP) 

NAX 

MASK2) ,SUB( JTEVP) ,AJP1{  17CC) ,LDL(MASKl ),AJP(2621 ) 

1.0E+3) ,STA3(TNIN),SLJ(2645) 

MP) 


2635) 

K)+(B( I ,MM)-FI(  I )  )» (B(I  ,MM)-FI (  I  )  ) 

)-FI( I ) )*B( 1+3, NM) 
1 

IN)  ,L0A( JPMAX)  ,INA(-1  ),  STA(  JK) 
K 

IN(K+1 ) )266C. 2660, 2650 
TMIN(KMIN))  2655, 2660, 266C 


Al ( VCON) ,STA( IP) ,LDA(TSL) ,FMU( 100.C) ,STA(TEN) 

SB(TEM) ,AJP3(L+2) ,ENI1( C),SLJ(2685) 

) 


,MN)-FI( I )) 

).ARS(  1  )  ,STA( ITEMP),LIL 1 ( ITEMP) ,LDA(C.O) ,STA1 (T) 

X) 

T+l  ) ,AJP(2  6  75 ) , AJP2(2£7  5) ,S IL1 ( MAX ) , R A0(  MAX ) 

MAX 

MASK2) ,ARS(27) ,SUB( IP),  AJP(2685) 

),STA(IN2),SLJ(2361 ) 
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BOX  39 


LDA( IP) ,STA( ID ,LDA(MJ) ,STA(MM),ENA(C),STA(IN2),SLJ(2492) 

THIS  IS  THE  SECTICN  OF  INVAC  THAT  MAKES  THE  I  NT  ERST  I T I  AL S 

THE  SUBROUTINE  IS  CONCERNEC  ONLY  WITH  VACANCIES 

TEMP=B(MAX,MM)-B(MAX,MJ) 

CALL  SITE  (IP) 

DO  2725  1=1,3 

T2=IB( I) 

B(  I,MM)=A»T2 

B(  I,MJ)=B( I, MM) 

IF(TEMP)  2735,2730,2730 

B(MAX,MM)=B(MAX,MM) +0.5*A 

B(MAX,MJ)=B(MAX,MJ)-0.5*A 

GO  TO  2740 

B(MAX,MM)=B(MAX,MM)-0.5»A 

B(MAX,MJ)=B(MAX,MJ)+0.5»A 

CONTINUE 

LDA(IP) ,ALS(27),STA(ITEMP) , LDA ( MM) ,A LS ( 1 5 ) , ACC(  I  TEMP) 

LDQ(MASK3),LIL3(MJ) , LD A3 ( LB )  , SSU ( J  A)  , ST  A3 (LB) ,ENA3(0) 

ADD(  I  TEMP), ST A ( JA) , LILI(NM) ,LDA1 (LB),SSU(JA),STA1(LB) 

LDA1 (LB),SST(4B),STA1 (LB) ,  LUA ( MM ), SUB ( M J ), A JP 1 ( 27U1 ) 

RA0(MISTAKE+4) 

RETURN 

ENO 


THE  REST  OF 


,STA{ JA) 
,ALS( 15) 
, LI  LI  (  IP) 


BOX  UO 


10 


SUBROUTINE  INTE 
DIMENSION  B(7,l 
DIMENSION  TMIN( 
DIMENSION  XC(6 
DIMENSION  OSTAN 
COMMON  B, LB, OCT 
COMMON  CON,DEV, 
COMMON  ITEMP,JT 
COMMON  JT,JW,MM 
COMMON  IP,TE,TE 
COMMON  DSTANCE, 
COMMON  MASK5,MA 
EQUIVALENCE  ( XP 
MM  =  MQ 

DO  1C  1=1,6 
XP(  I  )=B( I,MM)-B 
FMU(0.5) 
XC(  I)=ZZ(2) 
ZZ(9)  =  (XPU)*XP 
FMU(CU) 

ZZ( 1 )=SQRTF( ABS 
ZZ(10)=1.0/ZZ(1 
ZZ(  1  1)=S»S 
ZZ(7)=C1 


JR 


R(MG,  I  I  ,S  ) 

5C0),LB(15O0),OCTAL(15C0),FI(3)1IB(3),T(2C) 

20),IFACE(3).MISTAKE( 10) ,MOON( IS), NOON ( 10),MU) 

)  ,  XP(  20.),  ZZ(  15),CCN(U),0EV(7,2),AB(3) 

CE(20) 

AL,FI ,IR, T,TMIN,IFACE ,MI STAKE , MOON, NOON ,W , XC , XP , Z Z 

AB,A,NPLANE,NLINE,LMAX,MASK1 , MASK 2 , MASK3 , MASKU 

EMP,MTEMP,NTEMP,IN2,I N3,IL,JA, JB, JC,JK, JL , JM, JP, 

,KMIN,MAX,TEMP,NI,JPMAX,NIF,IXtIY.IZ,NN,MAXLAT,JJ 

M,C1,C2,C3,C4,C5,C6,C7,C8,C9,C10,C11,C12,T1,T2 

FMASS,  13, TSL 

SK6,MASK7,MASK8, MOVE,  NOW 

,TMIN), (LE, OCTAL) 


(  I, II) 

STA(ZZ+2)  . 

(M)+XP(5)«XP(5)+XP(6)«XP(6))»1.0E8 

STA(ZZ+10). 
F(ZZ(9)  )  ) 
0) 
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15 


19 


20 


BOX    Ul 

ZZ(2)=C2/EXPF(ZZ(7)*C3) 

FSB(C9)  FMU(ZZ+10). 

STA(ZZ+8) 

ZZ ( 2 )=C3*ZZ( 2) *ZZ (7 )*ZZ(  1C)«ZZ(7) 

ZZ( 5)=ZZ(7)*(  l.C-ZZ(8) ) 

ZZ(2)=ZZ(7)-(ZZ(7)»ZZ(5)-ZZ(11))/(2. 0«ZZ(5)+ZZ(2)) 

LDA(ZZ  +  2)' 


FSB(ZZ+7) 

LDA(ZZ+2) 

FMU(1. 000001 

AJP2120) 

STA(ZZ+7) 

ZZ(2)=ZZ(7) 


AJP2( 19) 


) 


FSB(ZZ+7) 
LDA(ZZ+2) 
SLJ(  15) 


BOX    li2 


LOA(C.O)  STA(ZZ+5) 

STA(ZZ+6)  LDA(ZZ+2) 

FMU(ZZ+2)  STA(ZZ+7) 
ZZ(8)=C2/EXPF(ZZ(2)«C3)-C9 

LAC(ZZ+2)  FMU(C8) 

FAD(l.O)  STA(ZZ  +  i4) 
DO    25    1=1, 4 


8)-ZZ(9)  )  )  ) 


INTINUE 

:(7)=2.0»SGRTF(  AESF(ZZ(IJ)  )  ) 

(5)=S*ZZ(5)»ZZ(7) 

<6)=ZZ(3)«ZZ(6)»ZZ(7)/ZZU) 


BOX    U3 

ZZ(7)=SINF(ZZ(5) )»C6 
ZZ(8)=C0SF( ZZ(5) ) 
ZZ(3)=ZZ(5)+ZZ(13) 
ZZ(l4)=SINF(ZZ(3)  )*ZZ(1  )»C.5E-U 
ZZ(  10)=C5»ZZ( 1)«C0SF(ZZ(3) ) 


83 


BOX    44 


30 


FI  (  1  ) 
FI(2) 
FI  (  3) 
ZZ(  1) 
ZZ(2  ) 
ZZ(  3) 
FMIMZ 
LDA(Z 
FAD(T 
LDA(Z 
FAD(T 
TEMP  = 


LDA{ 
STA< 
FMU( 
LDA{ 
STA{ 
FMU( 


=XP(2)*XP(6)-XP(3)*XP(5) 
=  XP(3)*XP(»<)-XP( 1 )*XP(6) 
=XP( 1 )*XP(5 )-XP(2)*XP(4) 
=FI(2)*XP{3)-FI(3)*XP(2) 
=  FI (3)«XP( 1  )-FI(  1  )*XP(3) 
=  FI(1 )»XP(2)-FI(2)*XP( 1 ) 
Z+3)  STA(TEMP) 

Z  +  2)  FMU(ZZ+2J 

EMP)  STAUEMP) 

Z+l)  FMU(ZZ+1) 

EMP)  STA(TEMP) 

SQRTF( ABSF(TEMP) ) 
.0)  FDV(TEMP) 

EMP)  LDA(ZZ+1) 

EMP)  STA(ZZ+1) 

Z  +  2)  FMU(TEMP) 

Z  +  2)  LDA(ZZ+3) 

EMP)  STA(ZZ+3) 

BOX    45 


DO    30    1=     1,3 

13=1+3 

ZZ(5)=XC(I)*ZZ<8)+ZZ(I)»ZZ(7) 

ZZ(9)=B(I,II)+XC(I)+(B(I3,II)+XC(I3))*ZZ(6)«1.0E14 

DEVI  1,1 )=ZZ(9)+ZZ(5) 

DEV(  I,2)=ZZ(9)-ZZ(5) 

ZZ(5)=XC(I)»ZZ(10)+ZZ{I)«ZZ(4) 

ZZ(9)=B( 13,1 I)+XC( 13) 

DEV( 13,1 )=ZZ(9)+ZZ(5) 

DEV(  I3,2)=ZZ(9)-ZZ(5) 

L0A(C.0),STA(T1 ) ,STA(T2) 

DO    29    1=4,6 

T1=T1+DEV( I, 1 )*DEV( I, 1 ) 


29    T2=T2+DEV(I,2)»DEV( 1,2) 

DEV(7,1 )=FMASS»T1*0.5180C761500 
DEV(7,2)=FMASS*T2»0.5180C761500 
END 
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BOX  1 


398 
399 


PROGRAM  SLAVE 

DIMENSION  AB(3),fi(7,2370), 
DIMENSION  YENTRY( 1C) .ZEN7R 
OIMENSIQN  IHISTO(105),NUNB 
OIMENSION  NSIDE(6),ESIDE(6 
COMMON  IX, IY, IZ,FI,A,NLINE 
COMMON  IHISTO, NUMBERS, AB, I 
COMMON  NSU8ST,EBUL,ETHERf, 
CCMMCN  ESIDE,NVAC,ECAL,OEN 
COMMON  YENTRY,2ENTRY 
EQUIVALENCE (LB, OCTAL) 
REWIND  8 
PRINT  109 

REAO  TAPE  8,  IX, I Y, 12, AB ,N 
1ETHRESH, THERMAL, EPB, LULL, A 
20ENERGY,T£NERGY, MISTAKE, 
READ  TAPE  8  , (LB ( L>, ( B(  I  ,L 
WRITE  OUTPUT  TAPE  3,398 
F0RMAT(30H  SET  SLJ  SWITCH 
SLS(399) 
CONTINUE 
PRINT  101 
DO  400  1=1,6 
READ  INPUT  TAPE  2,100 


FI(3),IB(3),LB(237C),XY2(3),EMAX(30) 


Y(  10).CCTA 
ERS(50).NI 
r,NITEMP(l 
,NPLANE,LM 
L,ITEMP,IT 
NSIDE.NBUL 
ERGY,NITEM 


LINE,NPLAN 

LPHA.BETA, 

YENTRY, 

)  1-1,71  L 


L(2370).KET(26) 

0),l!ilOO),TSLI(30),NTSC(3C) 

AX,IB,LB,XYZ,MAXLAT,E,OCTAL 

EM.IT,TEMP,TEM,KET 

•NSAME, INTERST, INPAI RS.NFACE 

P, DEPTH, PEROIST.ICEPB 


E.KAXLAT.LMAX.A.SPHI.PMASS't 
NTS,MNTS.TTIME»TSLI,NTSCt 

ZENTRY,NA,EMAX,EFOUND 
»1,LMAX) 


2  UP  IF  NEECED) 


100  F0RMAT(80H 


400 
405 


200 
210 
220 
101 


1 


) 


PRINT  100 

READ  INPUT  TAPE  2,405,)<KET  ( I )  I»l,25> 

FCRMAT(10X,13I4) 

KET(26)=1000 

SLJ2(200)  SLJ(220) 

PRINT  210 

F0RMAT(40H  SELECTIVE  JUMP  SWITCH  NUMBER  TWO  WAS  UP) 

PRINT  101 

FORMATt////) 

IHIST0(1)=5H(I3,F 

IHIST0(2)=4H7.1, 

IHIST0(3)=5H3H  P. 

IHIST0(4)=6H4HC. 

IHIST0(105)=1H) 

ITEMP=32768 

I2E15=ITEMP 

I2E24=ITEMP*512 

F2E2i4=I2E24 

I2E30=ITEMP»ITEMP 

MASK25=77770B 

MASK69=777700000B 

MASK13=7777C00C0G000B 

MASK  1 4=700000000 CCOOOB 

MASKSA=100000CCCCCC000B 

MASKSU=20G0C0C000000OOB 

MASKSET-7300000000000007B 
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BOX   2 

♦  LDA(NTS)    AJP1(L*2)    LDA(MNTS)    STACNTS) 

N5UBST*0 

EBUL*0.0 

ETHERM=EFOUND 

CO    1M05    1*1.6 

ESIDEl  I)=C.O 
1405    NSI0E(I)*O 

NBUL=0 

NSAME=?G 

INTERST*0 

NAA*NA-1 

DO    1407    1*1, NAA 
U07    TSLI(I>*TSLI(I)*1.0E-14 

TTiME*TTIME«1.0E-14 

DO    1410    L*1.LPAX 

♦  LDAMLB)    SCL(MASKSET)    SU2(L*2)    SCUMASK69)    SCUMASK13)    *STA4aB) 
1410    CONTINUE 
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BOX  3 

1U11  DC  1449  L*lfLMAX 

LCQ4ILB)  LOL(MASKIU) 

AJPM415)  ALS(9) 

STA(NFACE) 
1412    NSIDE(NFACE)*NSIDE(NFACE)*1 

ESIDE(NFACE)«ESIC6(NFACEUB(7,L) 

GO    TO    1449 

1415  SLJ2M416) 
CALL    ROUND(L) 
♦SLJ(L+3) 

1416  -HOQUILB)       LDL(MASK13)       ARS(27)       STA(IL) 
LILKIL)    LDA(IL)    ALS<27)     STAUL27) 
SLJ2M417)       LDAU(LB)       SSTUL27)      STA4U8) 

1417  TEMP-B17.D-THERMAL 
AJP3M425)    RACCNBUL) 
EBUL=EBUL+B(7.L) 
LCAU(LB)    SSK2B)    STAU(LB) 
TEM=B!7,L)-ETHRESH 
AJP2( 1U49) 

CALL    ROUND(L) 

LIL1  (ID 

LDAKLB)       SSK4B)       STAKLB) 

GO    TC    1449 

1425  ETHERM^ETHERM+B(7,L) 
SLJ2M445)  LCCKLB) 
LDLUB)    AJPM427) 

DO    1U26    J=1,L 

LDQ21LB)    LDHKASK13) 

SUBIIL27)    AJP1C1426) 

LDQ2K.B)    LDL(2B) 

AJPK  1426) 

ITEMP=L 

ALS(15)    AD02(LB)    SCL(MASKSA)    SCL(MASKSU)    STA2(LB) 

ITEMP=J 

ALSM5)    AD04(L8)    SCL(MASKSA)    SCL(MASKSU)    STA4UB) 

SLJ(UUU) 

1426  CONTINUE 

1427  LDAKLB)       SST(4B)       STAl(LB) 

LAC(IL)        INAU(C)       AJP(142E)       LCA(MASKSU) 
ADDMLB)  STAMLB)  SLJ(IUUU) 

1U28    LDA(KASKSA)    ACDMLB)    STAUtLB) 

1444  LDAKLB)  SST(4B)  STAl(LB)  SLJ(1449) 

1445  LDAKLB)       SST(UB)       STAKLB) 

+LDQl4(LB)       LDLCMASK13)       ARS(27)       STA(IL) 

♦  LILKIL)       LDAKLB)       SST(IB)       STAKLB) 

+LDLCMASK69)       AJPK1449)    LAC(IL)       INA1KO) 

+  AJPKL  +  3)       LCAU(LB)       SST(NASKSA)    ST  A4(  LB  )  .  SLJ(  1449) 

+LDA4CLB)  SST(MASKSU)   STAU(LB) 

1449  CONTINUE 
NVAC'O 

DO    1456    L^ltLNAX 
LDQU(LB)    LDL(UB)    AJPK145C)    RAO(NVAC) 

1U50    LDQMLB)    LDL(MASKSA)    AJP(1451)    RAO(NSAFE) 

1451  LDQ4(LB)     LDL(NASKSU)    AJPM452)    RAC(NSLBST) 

1452  LDQ4(LB)    LDHMASK69)    AJPC1U56)    RAO(IMERST) 
NVAC»NVAC+MAXLAT-LMAX 
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V 


BCX  14 

TEMP=ESIDEl 1) 

ITEMP=NSIDE(  1) 

DO  1  »*57  1=2,6 

ITEMP=ITEMP+NSIDE(I) 
H457  TEMP=TEMP+ESIDE( I) 

ECAL=ETHERM+EEUL+TEMP 

LMAXCAL=INTERST+NSAME+NSLBST+NBUL+ITEMP 

PRINT  1458»IX,AB(1)V IY»AB(2) ,  I  Z, ABC3 ) , MAXLAT, A, SPHI, FMASS, ETHR£SHt 
1THERMAL 
1458  FORMAT(    29H  THE  LATTICE  DIMENSIONS  ARE  -5X,  1 1HX-DIRECT  ICM6 ,   6H 

1  X  A  =*F8.3,  1CH  ANGSTROM5/34X,  1 1 HY-OIRECT ICNI  6t  6H  X  A  =F8.3,   10H 

2  ANGSTROMS/34X,  1 1 H2-DIRECTION 16, 6H  X  A  »F8.3,  10H  ANGSTROMS//  21H 

3  THE  LATTICE  CONTAI NS 1 5, 6H  ATOMS//33H  THE  LATTICE  SPACING  CONSTANT 

4  A  =F6.3,    1CH  ANGSTR0MS/27H  THE  SPHERE  OF  INFLUENCE  ISF12.3,  1CH 

5  ANGSTROMS/  19H  THE  ATOMIC  MASS  ISF20.3.4H  AMU// 

6  40H  THRESHOLO  ENERGY  FCR  VACANCY  PRCCLCTICNF8. 3 , 4H  EV. / 

7  25H  THERMAL  THRESHOLD  ENERGYF23. 3,  *<H  EV.) 
LDA(ALPHA)  FMUM80.0)  FCV ( 3  .  14 15926 536 )  STA(YANGLE) 
LDA(BETA)   FMU(180.0)  FCV ( 3. 1 41 5926536 )  STA(ZANGLE) 
IT=LMAX-MAXLAT 

PRINT  101 

PRINT  1454,IT,LULL,EPB,ALPHA,YANGLE,BETA,ZANGLE 

1454  FORMAT(23H  CONDITIONS  OF  THIS  RUN///I3,    20H  ATOMS  WERE  SHOT  IN. 
128H    ONE  ATOM  HAS  SHOT  IN  EACHI3,llH  TIME  STEPS/ 

3  38H  ORIGINAL  ENERGY  OF  EACH  INCOMING  ATCMF12.3.4H  EV./// 

4  28H  DIRECTION  OF  INCOMING  ATOMS/ 

526H  ALPHA  -    ARCTAN(  VY/VX  )  *F8.4,11H  RADIANS   »F8.3,8H  DEGREES/ 
626H  BETA   =  ARCTAN(  VZ/VX  )  =F8.4,llH  RADIANS   *F8.3,8H  DEGREES) 

ITEMP=MAXLAT+1 

PRINT  1453, (L,YENTRY(L-MAXLAT),ZENTRY<L-MAXLAT)  L- ITEMP, LMAX  ) 
1453  F0RMAT(///37H  POSITIONS  CF  ENTRY  OF  INCOMING  AT0MS//7H  NUMBEK.9X, 
1 1HX9X,1HY9X,1HZ//(I6,8X,5HC.C0C,2F10.3) ) 

PRINT  1455,NTS»MNTS,TTIME,tTSLIU),NTSC<  I)  I»1,NAA) 

1455  FORMATtlHl,//    41H  THE  NUMBER  OF  TIME  STEPS  OF  THIS  RUN  WAS I 10/ 

1   47H  THE  LIMIT  SET  FOR  THE  NUMBER  OF  TIME  STEPS  WASI4/    31H  THE 
2T0TAL  TIME  OF  THIS  RUN  WAS1 PE12.5 ,8H  SECONDS//  41H  TIME  STEP  LENGT 
3H     NUMBER  OF  FIRST  TIME/4X,    36HI N  SECONDS        STEP  OF  TUS  L 
4ENGTH/(/lPE14.4,I18)) 

LDA(NTS)   SUB(3C)  *AJP2(L*2)   LOA(NTS)   STA(IT)  SLJC5541) 

LDA(30)    STA(IT) 
5541  CONTINUE 
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PRINT  1459»ECAL, TENERGY, CENERGY, ETHERS, ( I.EMAX! I)  I-l.IT) 

1459  FORMAT! 1H1*/28H  THE  ENERGY  ACCOUNTED  FCR  ISF14.3.4H  EV./ 

1  28H  SUM  OF  ENERGIES  OF  ATOMS    F14.3,4H  EV./ 

2  28H  ENERGY  SHOT  INTO  LATTICE    F14.3.4H  EV./ 

3  45H  ENERGY  ABSORBED  BY  LATTICE  AS  THERMAL  ENERGYF12 .3,UH  EV.//. 

4  29H  NUMBER  OF      ENERGY  OF  MOST/ 

5  29H  TIME  STEP      ENERGETIC  ATOM// ( 17 , F16.3,3H  EV)) 
INTERST=INTERST/2 

PRING  1460,LMAXCAL,LMAX,NSAME,NSUBST,INTERST,NVAC 

1460  FORMAT! 1H1,/38H  THE  NUMBER  CF  ATOMS  ACCOUNTED  FCR  IS  15/ 

1  38H  THE  TOTAL  NUMBER  OF  ATOMS  IS  15// 

2  38H  THE  NUMBER  IN  ORIGINIAL  POSITIONS  IS  15/ 

3  38H  THE  NUMBER  OF  REPLACEMENTS  IS         15/ 

4  38H  THE  NUMBER  OF  INTERSTITIAL  PAIRS  IS   15/ 

5  38H  THE  NUMBER  CF  VACANT  LATTICE  SITES  ISI5////) 
IF(MISTAKEM))  9955,9955,9956 

9955  PRINT  9957 

9957  F0RMAT(30H  THE  ENERGY  CHECK  DID  NOT  FAIL   ) 
GO  TC  9965 

9956  PRINT  9959, MI  STAKE ( 1 ) 

9959  F0RMAT(24H  THE  ENERGY  CHECK  FAILED  I4,16H  OIFFERENT  TIMES) 

9965  IF!MISTAKE!2) )  9961,9961,9962 

9961  PRINT  9963 

9963  F0RMATI62H  NO  INTERSTITI ALS  OR  VACANCIES  OCCURED  ALONG  AN  EDGE  OR 
1CCRNER   ) 
GO  TO  9966 

9962  PRINT  9960, M I  STAKE ( 2 ) 

9960  F0RMAT(60H  AN  INTERSTITIAL  OR  VACANCY  OCCURRED  ALONG  AN  EDGE  OR  CO 
1  1RNER   I4.16H  DIFFERENT  TIMES) 

9966  CONTINUE 
PRINT  101 
PRINT  1462 

1462  FCRMAT(24X,6HNUMBER,5K,12HT0TAL  ENERGY/5H  FACE,6X , 5HGR0UP.7X, 

18HIN  GROUP, 7X,6HIN  EV.//) 
PRINT  1464,.NBUL,EBUL,  (NSIDE(I)  ,ESIDE(I)  I»l,6) 
1464  FORMAT! 19H  KNOCK-CNS  I9.F16.3/19H    1      FRONT  FACEI9.FT6 

1.3/19H    2      BACK  FACE  I9.F16.3/19H    3      LEFT  FACE  I9,F16*3/ 

2  19H    4      RIGHT  F ACEI9 ,F1 6.3/19H    5      TOP  FACE   I9.F16.3/ 

3  20H    6      BOTTOM  FACEI8  ,F 16.3) 
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BOX  5 

PRINT  1465,-NSAME 
1465  FGRNATMHl, 1X,59H  THE  NUMBER  OF  ATOMS  THAT  ARE  IN  THEIR  INITIAL  PO 
1SITICNS  ISI5//10H   THEY  ARE/) 

ITEM=77777770C0077777B 

IT-7770000777777777B 

J=;l 

K  =  l 

L=l 

DO    1466    1=1.10 
114  66    NUMBERSt  I)=0 

DC  1*480  M=1,LMAX 

IF(J-ll)  1474,1467,1467 
1467  PRINT  1472*  (NUMBERSU)  1*1,10) 

DO  1468  1=1,10 
14768  NUMBERSt  I  )=0 

J=l 

L=L  +  1 

IF(K-501)  1470,1469,1469 

1469  PRINT  109 
K=l 

L  =  l 

GO  TO  1474 

1470  IF(L-ll)  1474,1471,1471 

1471  PRINT  110 
L=l 

1472  FORMAT! 101 10) 

1474    LDA5(LB)       SCL(IT)       ARS(27)       STA(ITEMP) 

LACUTEMP)       INA5(0)       AJPK1476)       LDA5(LB) 

SCL(ITEM)       AJPK1476) 

NUMBERS(J)=.M 
1476  J  =  J+1 
1480  K=K+1 

INI2(-1)   SIL21IT)   LDA(IT)   AJPC480) 
480  PRINT  1472,  (NUMBERS  U)  1*1  •  IT) 

BOX  6 

PRINT  1560, NVAC 
1560  F0RMAT(1H1,1X,37HTHE  NUMeER  OF  VACANT  LATTICE  SITES  ISI6///10H  THE 
1Y  ARE  //) 

IT-  1 

DO    1565    L=1,MAXLAT 
1562    LDQ4UB)    LDL(4B)    AJPK1565) 

NUMBERSt IT)=L 

RAO(IT)    SUBt51)    AJPU156S) 

PRINT    1472,tNUKBERS(IT)     IT*1,50) 

IT«1 

1565  CONTINUE 

1566  PRINT  1472,tNUMBERS(I)  I*1»IT) 
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BOX  7 

PRINT  109 

PRINT  1499 
1U99  F0RMATM3H  REPLACEMENTS//) 

PRINT  1500tNSLBST 
1500  FORMAT( IX, 30HTHE  NUMBER  CF  REPLACEMENTS  IS  16///  £5H 

1  INITIAL      FINAL       PENETRATION       PENETRATION  IN/        5*H 

DO  1502  1=1,100  • 
1502  IC(I)=C 

DO  1517  L=1,LMAX 

LDQUCLB)  LDL(MASKSU)  AJP(1517)  LDLCMASK13)  ARS(27)  STA(IL) 

CALL  INITIAL(L) 

CALL  DEPTHP(L) 

PRINT  1515,L.IL,DEPTH.PERDIST 
1515  FORMATC I7,I10,F16.3,F18.3> 

1517  CONTINUE 

1518  PRINT  109 
PRINT  1*499 
PRINT  1520 

1520  FORMATUOH  DISTRIBUTION  CF    X-OIRECTICN  PENETRATICN//21X, 
117HR    A    N    G    E18X,6HNUMBER/) 

DO  1521  1*1,30 
J  =  I-7 
TEM=J 

TEM=TEM-0.5 
TEMP  =  TEM+;1.0 

1521  PRINT  1525, J, TEM,TEMP»IC ( U 

1525  FCRNATC  I3,F11.1,9H  X  A   -   16HX  PENETRATION   -F6.1.4H  X  AI111 

DO  1527  1=1,30 
1527  NUMBERS(  I  )  =i I C  (I ) 

IL— 7 

CALL  HIST0C30) 

PRINT  109 
.   PRINT  1499 

PRINT  1530 

1530  F0RMAT(35H  DISTRIBUTION  CF  RADIAL  PENETRATI0N//21 X, 
117HR    A    N    G    E22X,6hNUMBER/) 

DO  1531  1=1,20 
IT-I-1 

1531  PRINT  1532,I,IT,I,IC( I+3C) 

1532  F0RMATU3,  19, 9H  X  A   -   21HRA0IAL  PENETRATION   -14, UH  X  AI12) 
DO  1533  1=1,20 

1533  NUMBERSU  )=IC(I*30) 
CALL  HIST0(20) 
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BOX  8 

PRINT  109 
PRINT  1534 

1534  F0RMATU9H  INTERSTITIAL  PAIRS//) 
PRINT  1535,-INTERST 

1535  FORMATHOH  THERE  AREI4.19H  INTERSTITIAL  PAIRS//11H  NUMBERS  0F/TC4H 
1    THE  PAIR     NUMBER     PENETRATION  OF  L     PENETRATION  OF  L 
2PENETRATI0N  OF  LL     PENETRATION  OF  LL/  105H 

3  L      LL     OF  SITE.    IN  X-DIRECTICN     IN  RAOIAL  OIRECTION 

4  IN  X-DIRECTION      IN  RADIAL  DIRECTION//) 
00  1538  1*1,100 

1538    IC(I)=0 

CO    1550    L==1,LMAX 

LDQ4(LB)       LDLC2B)       AJPK1550) 

LDQU(LB)    LDL(MASK69)    AJP(1550)    ARS(15) 

STA(LL)     LDHMASK13)    ARS(27)    STA(IL) 

LILKLL)       LDQKLB)       L0L(2B)       AJP1C155C) 

CALL    INITIAL(L) 

CALL    DEPTHP(L) 

TE       =DEPTH 

TEM=PERDIST 

CALL  INITIAL(LL) 

CALL  DEPTHP(LL) 

PRINT  1545,.L,LL,ILfTE,TEN,0EPTHlPERDIST 
1545  F0RMAT(I5,I6,I9,F16.4fF2C.4,F22,.4,F21.4) 
1550  CONTINUE 

DO  1555  1=1, ICO 

1555  IC<  I)  =  IC(I)/2 
PRINT  109 
PRINT  1534 
PRINT  1520 

DO  1556  1=1,30 

J=I-7 

TEM  =  J 

TEM=TEM-0.5 

TEMP=TEM+1.0 

1556  PRINT  1525rJ,TEM,TEMPrIC(I) 
CO  1557  1=1,30 

1557  NUMBERS!  I)  =  IC(I) 
IL  —  7 

CALL  HISTO(30) 
PRINT  109 
PRINT  1534 
PRINT  1530 
DO  1558  1*1,20 
IT-I-1 

1558  PRINT  1532, 1,  IT,  I,IC(  I.+30) 
DO  1559  1=1,20 

1559  NUMfiERSU)  =  IC(I*30) 
CALL  HISTO(20) 
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BOX  9 

LDA(NBUL)   AJP(9951) 

1571  PRINT  109 
PRINT  1572 

1572  FORMATMOH  KNOCK-ONS//) 
PRINT   573,NBUL 

573  FORMAT! 10H  THERE  AREI5.1CH  KNOCK-ONS//) 
PRINT   57U 

574  FORMAT { 91 X.l 1 HP6NETRATI0N/UH    L7X r1 HX8X, 1HY8X, 1HZ8X ,2HVX7Xf 2HVY7X 
1,2HVZ5X,6HENERGY7X,5HLB(L)1CX,  11HX     RADIAL//) 

1576  FORMAT<I5,7F9.3,3X,015,2F8,2) 
DO  1577  1=1 » 100 

1577  ICCI)=0 
IT»1 

DO  1578  L=1,LMAX 
LDQMLB)  LDH2B)  AJPC157E) 
LDA(IT)  SUB(51)  AJPK1567) 
PRINT  109 
PRINT  1572 
PRINT   574 

IT=1 
1567  CALL  INITIAL(L) 

CALL  DEPTHP(L) 

CALL  ECOUNT(L) 

PRINT  1576, L, (8(1, L)  1*1 ,7) ,OCTAL(L) , DEPTH, PERDIST 

RAO( IT) 
15.78  CONTINUE 

PRINT  109 

PRINT  1572 

PRINT  1520 

DO  1569  1=1,30 

J  =  I-7 

TEM=J 

TEM=TEM-0.5 

TEWP=TEM+1.0 
1569  PRINT  1525tJ,T£M,TEMP,IC(U 

DO  1579  1=1,30 

1579  NUMBERSd  )=IC(I) 
IL— 7 

CALL  HIST0(30) 
PRINT  109 
PRINT  1572 
s   PRINT  1530 

DO  1574  1=1,20 
IT=I-1 

1573  NUMBERS( I)=IC(I+30) 

1574  PRINT    1532*1, ITVIVIC(I+3C) 
IL»0 

CALL  HISTO(20) 
PRINT  109 
PRINT  1572 
PRINT  1580 

1580  F0RMAT123H  DISTRIBUTION  CF  ENERGY// 
115X17HR    A    N    G    El 4X, 6HNUMBER/ ) 

DO  1680  1=1,25 

1680  PRINT  1526*1, KET(I)VKET(I+1)VIC(I*50) 

1526  FORMATU3,I7,2lH  EV    -     ENERGY    -16, 3H  EVI10) 
CO  1681  1=1,25 

1681  NUMBERS C I  HICC  1*50) 
CALL  HISTOC25) 
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ecx  10 

9951  DO  1599  J  =  l,6 

IF  (J-l)  1581 ,1581. 1583 

1581  PRINT  1582,NSIDE(1) 

1582  FORMATt 1H 1 , IX, 1 6HSPUTTERED  ATOMS-I 10 ,22H  ATOMS  WERE  SPUTTERED.) 
GO  TO  1585 

1583  PRINT  158U»J,NSIDE{ J) 

1584  FORMAT!  lHl,  IX, 145HTHE  NUMBER  OF  ATOMS  WHICH  EXITED  THROUGH  SIDEI2,3 
1H  ISI5) 

1585  LDA21NSIDE)    AJPM599)     AJP3(1599) 
PRINT  1586 

1586  F0RMAT<///91X,    23HPENETRAT ION    TIME  STEP/UH    L7X, 1HX8X, 1HY8X , I 
1HZ8X, 2HVX7X,2HVY7X,2HVZ5X,6HENERGY7X,5HLB{L) 10X.22HX     RADIAL 
20F  EXIT//) 

1587  F0RMAT(I5,7F9.3,3X,015,2F8.2,I9) 
NFACE=0 

DO  1589  1=1,100 
1589  IC( I)=0 
NTS  =  G 

DO  1595  L=1,LMAX 

LDQU(LB)      LDL(MASKIU)   AJP(1595)      ALS(9) 
STA(NFACE)    SIL2UT)      SLB(IT)        AJPK1595) 
LDKMASK25)   ARS(3)        STA(NTS) 

1594  CALL  INITIAL(L) 
CALL  DEPTHP(L) 
CALL  ECOUNT(L) 

PRINT  1587,L,(B(I,L)  1=1 ,7) , OCTAL! L) .DEPTH, PERDIST, NTS 

1595  CONTINUE 
PRINT  1695, J 

1695  FCRMAT(1H1,12H  EXITED  FACEIU//) 
PRINT  1520 

DO  1696  1=1,30 
L  =  I-7 
TEM  =  L 

TEM=TEM-0.5 
TEMP=TEM+1.0 

1596  NUMBERS!  I)=.ICU) 

1696  PRINT  1525, L.TEM, TEMP, IC ( I ) 
IL«-7 

CALL  HIST0(30) 
PRINT  1695, J 
PRINT  1530 
DO  1697  1=1, 20 
IT=I-1 

1597  NUMBERS!  I  )=?IC(  1  +  30) 

1697  PRINT  1532,I,IT,I,IC(I+3C) 
IL-0 

CALL  HIST0120) 
PRINT  1695*J 
PRINT  1580 
DO  1698  1=1,25 

1598  NUMBERS!  I)«ICU+50) 

1698  PRINT  1526*I,KET(I),KET(  1  +  1 ) v ICC  1*50 ) 
CALL  HIST0(25) 

1599  CONTINUE 
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107 

108 
109 

US 

112 
113 
114 
115 
116 
117 
118 
119 

120 


BOX  11 

SLJ1 (120) 
PRINT  119 
L=l 

PRINT  118,L,(B<I,L) 
FORMAT! 1H1) 
FORMAT(/) 
DG  117  L-»2»LMAX 
IF( 10«( (L-l )/10)-L+l ) 
IFI 50»( ( L-l )/5C)-L*l) 
PRINT  119 
GO  TO  117 
PRINT  110 

PRINT  118»L,<eCItL)  I=1,7),CCTAL(L) 
FORMAT ( I5,7F9.3,3X,015) 
FCRMAT(1H1,///13H  LATTICE  DUMP///4H 
1,2HVY7X,2HVZ5X,6HENERGY  7X,5HLB(L)/) 
END 


I«<1,7),CCTAL<L> 


117,113,113 
116,11U,1U4 


L7X,1HX8X,1HY8X,1HZ8X,2HVX7X 


BOX  12 


SUBROUTINE 
DIMENSION  A 
DIMENSION  Y 
DIMENSION  I 
DIMENSION  N 
COMMON  IX, I 
COMMON  IHIS 
COMMON  NSUB 
COMMON  ESID 
COMMON  YENT 
EQUIVALENCE 
DO  1320  1=1 

1320  IB!  I  )=B(  I.L 
ITEMP=IB(  1) 
IFI2MITEMP 

1325  IL=IB(3)»NP 
RETURN 

1330  NUMBERS* 1)= 
NUMBERS(2)= 
NUMBERS(3)= 
NUMBERS(4)= 
NUMBERS(5)= 
NUMBERS(6)= 
TEMP=1.0E50 
DO  13U0  1=1 
IT-NUMBERS( 
AJP3M3U0) 
AJPM333)  A 

1333  CALL  INITIA 
TEM=0.0 
DO  1335  ITE 
Fit ITEMP)=X 

1335  TEM=TEM+FI( 
IFXTEM-TEMP 

1337  IL«IT 

TEMP=TEM 

1340  CONTINUE 
END 


ROUNOtL 
B(3),B( 
ENTRY (1 

HISTOI  1 
SICE16) 
Y,IZ,FI 
TO, NUMB 
ST,EBUL 
E,NVAC, 
RY.ZENT 
(LB, OCT 

5/A+C.5 
♦IB(2)+ 
/2J-ITE 

LANE+IB 


) 

7,2370),FI 

0),ZENTRY( 

05), NUMBER 

,ESIDE(6), 

,A,NLINE,N 

ERS,AB,IL, 

,ETHERM,NS 

ECAL,0ENER 

RY 

AL) 


IB(3) 

MP)  1330,1 

(2)*NLINE+ 


(3),IB(3 
10),OCTA 
S(5C),MI 
NITEMP11 
PLANE, LM 
ITEMP,IT 
IDE,NBUL 
GY,NITEM 


),LB(2370),XYZ(3),EMAX(3C) 

L(2370),KET(26) 

STAKE(IO) 

0),IC(100),TSLI(30),NTSC(20) 

AX,IB,LB,XYZ,NAXLAT,B,OCTAL 

EF,IT,TEMP,TEM,KET 

,NSAME, INTERST, INPAI RS ,NFACE 

P,DEPTH,PERCIST,IC,EPe 


IB(3)  *NPLANE* 
IB(3)  *NPL/NE* 
IE(3)  *NPLANE+ 
IB(3)  *NPLANE* 
(IB(3)*1 )«NPLANE+ 
(IB(3)-1)*NPLANE+ 

»6 

I) 

SUB(MAXLAT) 

JP2(  13l»0) 

L(IT) 

MP=1,3 

YZ(ITEMP)-B(ITEMP 
ITEMP)*FI(ITENP) 
)    1337,13i*0,12U0 


325, 1330 
I B  (  1  )  /  2* 

IB(2) 

16(2) 
(IB(2)*1 
(IB(2)-1 

IB(2) 

IB(2) 


1 


•  NLINE-M  IBI  1 

•  NLINE+UB(1 
)»NLINE+  IB(1 
)«NLINE+    IB ( 1 

•  KLINE*    IB(  1 
•NLINE+    IB(1 


♦1)/2*1 
-1)/2*1 
/2*1 
/2+1 
/2+1 
/2+1 


tL) 
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BCX  13 

SUBRCUTINE  INITIAL(L) 

DIMENSION  AB(3),B(7,2370),FI ( 3  )  , I B(3 ) ,LB (237C ),XYZ ( 3 ) , EMAX ( 30 ) 

DIMENSION  YENTRY( 10) , ZEN  TRY ( 10  )  , CCTA L (2370 ) , KET ( 26 ) 

DIMENSION  IHISTOnOSKNUNBERSCSOl.MISTAKEMO) 

DIMENSION  NS  ICE  (6)  .ESIDE  (6)  ,NITEM.P(1  C)  » I C ( 1 OC ) , TSL I ( 30 ) | NTSC ( 3C ) 

COMMON  IX, I Y, 12, F I , A.NLI NE, N PLANE, LM AX , I B, LB, XYZ .MAX LAT, B, OCTAL 

COMMON  IHISTO,NUMBERS,AB,IL,ITEMP,ITEM, IT, TEMP, T EM , KET 

CCMMCN  NSUB ST, EBUL, ETHER M,NS IDE, NBUL,NSAME, INTERST .INPAIRS, NFACE 

COMMON  ESIDE,NV/>C,ECAL,OENERGY,NITEMPfOEPTHtPERCIST  ,IC,EPB 

CCMMCN  YENTRY,ZENTRY 

EQUIVALENCE!  LB  ,-OCTAL) 

IFiL-MAXLAT)  1003, 1003, 1 C23 
1003  CONTINUE 

IBt3)=(L-1)/NPLANE 

STQ(  ITEMP). 

IB!2)=ITEMP/NLINE 

STG( ITEMP). 

I8(  1)=ITEMP«2 

ITEMP=IB(2)+IB(3) 

IF(2*( I  TEMP /2)- 1  TEMP)  1005,1010,1010 
1005  I Bf  1  )=IB(1)+1 
1010  DO  1C15  1=1,3 

FI(  I)  =  IB( I) 
1015  XYZ(  I)=A»FI(I) 

RETURN 
1023  XYZ(1)=0.0 

XYZ(2)=YENTRY(L-MAXLAT) 

XYZ(3)=ZENTRY(L-MAXLAT) 

END 

BOX  14 

SUBROUTINE  ECCUNT(L) 

DIMENSION  AB(2) , B ( 7. 2370  ) , F I (3), IB (3 ) , LB ( 2370) ,XYZ < 3 ) , EMAX ( 30) 

DIMENSION  YENTRY(1C>,ZEN7PY( 10 ), OCTAL (2370) , KET (26) 

CI  MENS  ION  IHIST0(105) , NUMBER S ( 50 ), MI  STAKE(IC) 

DIMENSION  NSICE(6),ESICE(6),NITEMP(1C) , IC( 1 00) , TSL I (30 ) , NTSC ( 30) 

COMMON  IX,IY,IZ,FI,A,NLINE,NPLANE,LMAX,IB,LB,XYZ,MAXLAT,B,OCTAL 

COMMCN    IHISTO,NUMBERS,AB,IL,ITEMP,ITEM,IT,TEMP,TEM,KET 

COMMON    NSUBST, EBUL , ETHERM ,NS I DE, NBUL ,NSAME , INTERST, INPAIRS, NFACE 

COMMON    ESIDE,NVAC,ECAL,OENERGY,NITEMP,OEPTHfPEROIST,IC,EPB 

COMMCN    YENTRY,ZENTRY 

EQUIVALENCE (LB, OCTAL) 

TEMP=KET(25) 

TEMP=B(7,L)-TEMP 

ENIK25)       AJP2(25) 

DO    20    1=1, 24 

TEMP=KET(I*1 ) 

TEMP=TEMP-B(7,L) 

AJP2(25) 
20  CONTINUE 
25    RAOKIC+50) 

END 
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ECX  15 

SUBROUTINE  DEPTFP(L) 

DIMENSION  AB(3),B(7,2370),FI(3),IB(3) ,LB(237C),XYZ(3),EMAX(3C) 
DIMENSION  YENTRYt 10) .ZENTRYt  10  )  ,OCTAL( 2370 )  ,KET(26) 
DIMENSION  lHlSTOn05),NUNBERS(50),MISTAKE(l6) 

DIMENSION  NSIDE(6),ESI0E(6) ,NITEMP(10), I C( 100 ) ,TSL I (30 ) , NTSC< 30 ) 
COMMON  IX, IY,IZ,FI , A,NL I NE , NPLANE.LM AX , I B, LB ,XYZ ,MAXLAT, B, OCTAL 
COMMON  IHISTO,NUMBERS,AB,IL,ITEMP,  ITEM.  IT,  TEMP,  T  EM  ,  KET 
COMMON  NSUBST,EBUL,ETHERN,NSIDE,NBUL ,N$AME, INTERST, INPAI RS ,NFACE 
CCMMCN  ESIDE,NVAC,ECAL,OENERGY,NITEMP,DEPTH,PERCISTf IC.EPB 
COMMON  YENTRY,ZENTRY 
EQUIVALENCE(LB,OCTAL) 
DEPTH=B( 1,L)-XYZ<1) 
1=1 
1625  TEMP=I 

IF.!  (TEMP-6.5)*A-DEPTH)  1630,  1635,1635 

1630  IF.d-29)  1631,1631,1635 

1631  1=1+1 

GO    TO    1625 
1635    <IC<  I  )  =  ICU)  +  1 

PERDIST=SQRTF<{B(2,L)-XYZ(2) )»«2  +  (B(  3,L)-XYZ<3) )««2) 

1  =  1 
1640    TEMP=I 

IF* PERDIST-TEMP«A)  1650,  1645,1645 
1645  1=1+1 

GO  TO  1640 
1650  IC.t  I+30)  =  IC(  I+30J  +  1 

END 

BOX  16 

■SUBROUTINE  HI STO (NGROUPS ) 

DIMENSION  AB(3),B(7,2370),FI(3),IB{3),LB(2370),XYZ(3) ,EMAX(3C) 

DIMENSION  YENTRY(10).ZEN7RY( 10) , OCTAL (2370) ,KET (26 ) 

DIMENSION  IHIST0{105)*NUNBERS(50),MISTAKE(10) 

DIMENSION  NS IDE (6), ES IDE (6), NITEMP(IC) , IC ( 1  CO ) ,TSL I ( 30 ) ,NTSC ( 2C ) 

CCMMCN  IX,IY,IZ,FI,.A,NLINE,NPLANE,LMAX,IB,LB,XYZ,MAXLAT,E,CCTAL 

COMMON  IHISTO,NUMBERS^AB,IL,ITEMP,ITEM,IT,TEMP,TEM,KET 

COMMON  NSUBST,EBUL,ETHERN,NSIDE,NBUL .NSAME, INTERST, INPAI RS ,NFACE 

COMMON  E S IDE, NV AC, ECAL,0 ENERGY, N ITEM P, DEPTH, PERCI ST, IC,EPB 

CCMMCN  YENTRY,ZENTRY 

EQUIVALENCE (LB, OCTAL) 

NTOTAL=0 

NUMBIG=0 

CO  1110  1=1, NGROUPS 

NTOTAL-NT0TAL+NUMBERS(  I  ) 

IF< NUMBERS! I J-NUM8IG)  1 110  , 1 1 10,  1  108 

1108  NUMBIG=.NUMBERS(  I  ) 

1110  CONTINUE 

PRINT  1109,NT0TAL 

1109  FORMAT(//10X,17H1CO  PERCENT  MEANSI5/) 
TCTALN=NTOTAL 

BIGNUM=NUMBIG 

DO  1113  J=1, NGROUPS 

FNUMBER=NUMBERS( J) 

NUMBER=100.C*FNUMBER/BIGNUM+0.5 

TEMP=100.C«FNUMBER/TOTALN 

DO    1111     1=5,104 

1111  'IHISTOU  )  =  3H1H 
ITEMP=NUMBER+4 

DO  1112  I=5,ITEMP 

1112  IHISTO( I)=3H1HX 
IT=J+IL 

1113  PRINT  IHISTO,IT,TEMP 
END 

END 
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PROGRAM  RON 

DIMENSION  A8{3),B<3,2370),NT{2C00),P<3) ,X (3, 2000 ) , S( 3) 

DIMENSION  IB ; 3), Fit  3) ,XYZ (3  ) , NUMBERS < 6 ) , YENTRYf 10),ZENTRY(  10) 

(+SLJKL  +  1)   SLJ(4) 
IT— 1 
WRITE  TAPE  6, IT, IT, IT, IT 
4  REWIND  6 
PRINT  3 
3  FCRMAT< 1H1) 
PRINT  1 

1  FORMAT!////) 
DO  5  1=1,6 
READ  INPUT  TAPE  2,2 

2  F0RMAT(80H 
1  ) 

5  PRINT  2 
PRINT  1 
SLJ217) 

READ  TAPE  6,  IX ,  I Y , IZ, AE, NAXLAT , A , SPH I , FMASS, ETHRESH, THERMAL, MNP 
READ  TAPE  6,((B(I,J)  1  =  1  »3)  J= 1 ,MAXL AT ) , NLI NE, NPLANE 
PRINT  1098, IX,AB(l),IY,Ae(2),IZ,ABt3) ,MAXLAT , A ,SPH I , FMASS, ETHRESH, 
1THERMAL 
1098  FCRMAT129H  THE  LATTICE  DIMENSIONS  ARE  -5X , 11 HX-D  IRECTICNI6 .       6H 

1  X  A  =F11.7,10H  ANGSTR0MS/34X,  1 1HY-DI RECTI0NI6, 6H  X  A  =F11.7,  1 CH 

2  ANGSTR0MS/34X,  1  1HZ-DIRECT ICNI6 ,6H  X  A  =F11.7,lCH  ANGSTROMS//  21H 

3  THE  LATTICE  CONTAN I S 1 5, 6H  ATCMS//33H  THE  LATTICE  SPACING  CONSTANT 

4  A  =F10.7,1CH  ANGSTR0MS/27H  THE  SPHERE  CF  INFLUENCE  ISF16.7,    1CH 

5  ANGSTROMS/  1 9H  THE  ATOMIC  MASS  ISF24.7,4H  AMU// 

6  4CH  THRESHOLD  ENERGY  FOR  VACANCY  PRODUCT ICNF 10.3 ,4H  EV./ 

7  25H  THERMAL  THRESHOLD  ENERGYF25.3, 4H  EV.) 
PRINT  1 

LMAX=MAXLAT+MNP 
7  READ  INPUT  TAPE  2,8,T 

18  FORMAT(20X,F10.6) 
DX-T»A 
RA-l.O/A 
EN  16 (IB) 


10  READ  TAPE  6,IT.P 

AJP3(3C) 


LDA(IT)    AJP3(3C)   LIU5UT)   SIL5UN)   LILU(IT)   SIL4CIL) 

DO  15  1=1,3 

T  =  ABSF(P(  n-B(I.IL)) 

FSB(DX)    AJP2I2C) 
15  CONTINUE 

SLJ( 10) 
20  DO  25  1=1,3 

B(I,IL)=P(I ) 
25  X(I  ,N)=P(I) 

LDA(IT)    STA6(NT)   +ISK6C30OO)  SLJ(IC)  ENI6{3001) 
30  INI6(-1)   SIL6CITEMP)   EM2(0B) 

DO  45  L=1,LMAX 

ENI5(0B)   SILU(IL)   ENA(^l)   STA(NO) 

DO  US    K=1,ITEMP 

LDA3(NT)   STA(IU)    LILl(IU)   SILl(II)   LDA(II)    SUB(IL) 

AJP1U5)   LIUKIU)   SILl(IN)   LDA(NO)    AJP3(32)   *ISK5(4)  SLJ(42) 

PRINT  41 

41  FORMATt/) 
LDA(NO)   AJP2(42) 

32  PRINT  35, IL 

35  FCRMAT(//1X    ,20HORBIT  CF  ATOM  NUMBERI5// 

110H  NUMBER  0F9X, 1 5HACTUAL  PCSITI0N16X. 9HNUMBER  0F7X. 1 9HNCRMALTZE0 
3P0SITICN/10H  TIME  STEP6X  ,  1HX9X, 1HY9X , 1HZ 1 3X, 9HTIME  STEP6X, I HXSX, 
41HY9X.1HZ/) 
INI2(  6) 
N0=1 

42  DO  4C  1=1,3 

40  S(I )=RA*X( I,K) 

PRINT  43, IN,(XtI,K)  1  =  1 ,  3 ) , IN, < S  (  I  )  1=1,3) 
43F0RMAT(I7,F13.4,2F1C.4,I16,F13.4,2F1C.4,I9) 
45  CONTINUE 

LDA(IT)    AJP3(5C)   ENI6C1B)   SLJ(IO) 
50  CONTINUE 

END 

END 
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APPENDIX   IV 
PROGRAM  FLOW  CHARTS 


SYMBOLS   USED   IN  THIS  APPENDIX 


£>TART      ot    a   proaram  ^subroutine  ^  box  ,  or 


Read  in   or    write  out 


Decision  or  branch 


General    other  computer   operation 


o 


Position    designation 


[IJK'LMnI  Logical    product     o£    ITK  an<\    LMN 

(A)  Contents    o-f  the     "  A  register 


(Q) 


Contents    of   the     "  O   register 


132 


Statement    nuimker    732 
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PROGRAM  MASTER 


6 


oxes 


-5 


<  WRITE:  "TWIs\ 
IS  PROGRAM      \ 
MASTER^       ) 


READ    and    VVRXTE 

■five   cowwtent  cards 
£  tape    CI     to    tape  S) 


/READ   (tape  .2.) :    CUTOFF,  PERCENT/\ 
(  TFAC^ULL^IXjIV^E^PH^ETHRESH,    V* 
VtmeRMAL,  FMASS,  JPB,  miots,  MMP        >/ 


FiCO  =  rx 
FlG0*IY 

FIC5)SIZ 


VMOM(I-3)=0 
AB(\-^=A'Fl6-5) 


00   1020 
L  =  I,IMAX 


Cowvput  e    X ,  V ,  am  A  2 
coordinates  ot  each    site 
bu    c\«>ir\c\    subroutine    SITE(L^ 
Thert    puts   L    i»\  (10-13)  octal 

positions   eft   L&O-)^    puts 
a   "1"  'in   3rd   bit  of  L*a\ 
and    sets  TLAST?L)=- 10.0 
DO    1020      1  =  4-^6 
Set    "the    velocity  EBuTjL>] 
e^ua\  "to  ^ero.   Set  enerau 
e^ual     to   -^evo. 


START 
Bo*4- 


NL-IME= 

A/RMNE  = 


I 


MAKi^T  =  N  PLANE- (x2+r> 
LMAX  =  MAXLAT 


^RlTE   (tape  O  *. 
IX,IY,X2,  ABG-3>, 
MAXLAT,  A,SPHI  •>  FMASS, 
ETHRESH, THERMAL ,  MNJP 


I 


WRITE  (tap*  4); 
(&0-3,  J)  £>r  3=  I ,  MAXL/fO, 

NUN  E,  NPLAME ,  ^KJRV,  iEWTRV 


30 


6 


oxe-s 


<*-\0 


Set  TTJDAEjOENEftQV,  ENERGY,  Z2£V>,  MISTAKE, 
all    equal    to  zeyo.    Set    NEXT*  NA , 
MIMTS  eg.ua!    to   one.      TI\=(SPMJ  )  * 


Set    MASK's     ^or    logical 

use    wltlf\    L-B^  ,  anci 
explanation  of  sense  etches 


Set    initial 
Constants    for 
"interaction   subroutine 


At  this  point  tKe  real  problem    starts)    all    previous    t< 
tKis   was,  in  setting    up  the    problem.   The   -plow 
chart    will    be    more,   detailed    Trow   here   ov\  out. 


^Reoener 


(tape  7>.  ]^   AUuP 

at'ion    mput y 


Not  all  up 


c 


REWXKJD    "7 


> 


DO  °\ooo 
(A=»AIWTS,MKJTS 


VORXTE   (tape  7): 
Reo|€nerat\on    output 
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START 


WPvXTE    (tapes    3-*-^'. 

fenjergv,  nj^  i  emerge 

EKJEfcG^ 


Box      I 


SOOI 


<VJRXTE  (tape   $}: 
^output   -Co*     SLAVE 


VJ  RITE  (tape  3> 
output 


No 


if 


Stop  tf 
9tpj»  switch 
\  U  set 


Go  To    q<m 

CAba^Aon     "the    run.  ) 


=o 


>0 


Yes 


Commute 


^0 


*  Box    »Z 
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\20 


B 


oxes 


\2r\S 


LMAX  =  LMA.X-H 

Read  lo   XjY^,  ener3\J: 
ar\ales.  o<,  £ 


v„  =  v. 


tar\  o( 


Vj  »   Vx  tan  fi 

i_b(lmax)=  a. 

TLAST^tWAX)  =  -2.0 
V*  V-  Vu./Vx 


'x 
>x 


O EMERGE  =  OENERGV*  &(7,uviAX> 
TEWEfcG,V  =  TE»0ER£Y4  &C7,UAA%) 
V£WT«yCw£KT^=  S>(>L>UMAx> 
Z&WTfcVC/vE\T>  -  B£3>  LMAX) 
K/EXT  -t^B-XT  +1 
EPB=    B(71LMAX) 
Recalculate     TSL,    'S.tore     iti 
TSLI(WA),  Store  N)  in   MTSCC/JA} 


Box 
13 


I 


SO 


tsliojavtsl 
kjts>cCkja)=  n 

NA=WA+I 


Recalculate    TSL 
on  Wis  o$  £WERGY 


.990EUEW  -|.0lOEME%Y 


TTIME4-TSL 


Ad<i   or^e  io 

MISTAKEN 


Do  \GO 
L*(,LMAX 


AdA  6(7, 0  toT£W££6V 
Clear    MASK  5    bits  of  L&O 


>o 


TENEfi£,\=o 
ENERGY  =D 


40 


EMAX(Nft  = 
ENERGY 
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oxes 


lt-17 


DO   2000 
L-I,LMAX 


LATER  (l-SO^O 

IWMIISJ-2. 
input =  o 
MUM 0-2.0)^  0 
KI4ITO-Xo)-=0 
LAVT0-ao)-o 
T(\-2.0)*0 
DSTAMCaO-^o)  =o 
TMlMO-iO^)  =  O 


=o 


Go  To  377 
(Box  25) 


NUIACK'S-S 


K=K-I 
KMAX=K 


INS^O 
NFACE  =  0 


.04 


DO  MS 

TTri/ip. 

K=l,KMAX 

±  1  tWr  -  !wr»ir^ 

B 


ox 


7 


T7=  T4a+TSa+T6a 
TS  =  Tla  *T^->-T3a 


<0 


-Q=fc(2,TTEMP)  - -^2,M^ 

T4=  B(4.XTEMP)  -B>t%M~) 
T£r  B(5\ITEMP>  -B^,M) 
T6--  ^^ITEM?)   -B^jM^ 


T^-Tl-T4+T^-T5 
+  T3-T& 


DSTANCEC«0  =  (LT!+T4-.TWHJ6<S 

+  [T2-fT^.TMrw^Ja+Er3^Tfe-TMl^K)]a 


31(4-1 


'TOO* 

SoO-TSL 


>o 


t(kN=  t^inM 


TMINOO?-  ^^ 


Compute      T[&)+TTIWE_ 
-TSL-TLASTClTEIiAP^ 


Compute 
TC^+TTri^E 

-tsl-tla^tCm^ 


Go  To     SL14- 


I>sj3  =  Ifc3  +  \ 
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JA=  KMAX 
T£MP=  \00O>  TS1_ 


Go  To    0.77 

(&o*  25) 


i 


Do  ai7 

K=2,KMAX 


J»2 
Tl=C^ToFF-TSL 


I 


217 


K=0 


K=K-hJ-+  ' 


Do  a\q 
K- 1, KMAX 


TEMP-T(K) 
KMIW=K 


T=T-I 
NMAX  =  J 


DO   300 


GoT0217(B<>72^ 


INPUT= 
IW?UT+ I 


NHIT=0 
ELOST=0 
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Box    19 


DO    351 
K-  l,NMAX 


T  =  KHIT(K> 
SAV£0-3,K)= 


3S"I 


COLD(l-7)=0 


Pet  ermine      K    so   that 

NUHCK)  is  J 


i 


=  0 


PAR=  DSTANCE(K>  I0~'° 


I 


NPAIR=3 


Move    *t  T   ahead 

io   time 

T(KV 

I* 

JA=2.  , 

move 

#M  to 

t<kV 

If 

lAtZi 

ir/\oye 

=*±M  bac 

.k 

from   last  T(\0 

an  A  "then  move 

ah< 

iad  ."to 

"time 

of  preset  T(K) 

TIME  =T^K^ 

CALL    INT£R(M,J,PA^ 

TLASTCJ)  =  TTIME-TSL  +TIN\E 


© 


JA  =  JA-H 


I 


Add  DEV6-U)  to 

COLOCl-6) 
6(1-7,  J>DEV6-7,a^ 
Add    CB(7>3) 
-SAVE(^3A3toELOST 
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Go  To 
W  .2.1 


© 


<0 


T3F 


>0 


TEN\^1/NHIT 
BO-^»A}  = 
TEm-COLDO-^ 


^55 


I 


I 


Box  20 


TEK\?=0 
TEM=0 


T2<0 


DO  355  K=2,NMAX 


I 


B(4-£, J) = 

STUPI6«BC4-4,T) 
'STOPID^'  8(7,7) 


DO  3S2 
K=r,MMAX 

1  *°  i 

STUPID = 


x/TEMP/TEM' 


352 


I 


J  =  KHIT(K) 

Ada  ^  SAVEO^kY1 

to   TEMP 

M^   Z  B(4-6,jy* 

to  TEM 


TEIv\p=  ^COLOC^-tV 


=  o 


>0 


B(4-4>M)= 
DEV^4-4,0 


<0 


CALL  SITEdL} 

A-IBO-B'J-BO-SjM) 
TEKI=ZSCALE(l-3)a 





BC7,M> 
=T.2 

do  To 

Box  .2.1 


XL=rLo(M)-N)A$K2]«^7 
TEM  =  0 


i 


TEM=     THA.5I?-  FMASS'TEIA} 
B(4-t^M>)=TEM- SCALE  O-S) 
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IN3=0 


Go  To  XII 
(Box  -25) 


box  2\ 


TLAST(/vT)  =  TTIME-TSL+TIME 
+2^Vl0'*-  PERCENT 

LOCATE  =0 


>0 


Go  To  513 

(a hotter  page) 


Clear    3rd   bit 
o-f    LB(I) 


Clear   bit  *2  o-f  LB»CM)( 
ITEMP=  10-13  octal    positions 
JTtMP  =  6-^  octal  positions 


XT£MP= 
JTEMP.227 


I 


o 


CI cav   MASK2 
bits   of    LB(M> 


=  0 


Clear  b!t*S 
of  LBftTEMP) 


TT£MP= 


TTEMP-1 


-IS 


C  lear  MASKS  bits 
of  LfcCKO 

^TEWP=6it43  0-9 
LB^M}  .     Clear 
bit  4*  of  i-B^M) 


UTER(N^»M 


=o 


MISTAKEN)  = 
MTSTAKEC?)*! 


<0 


I 


I 


Set  btt#2 


Clear   MASK  I  bifc 
o-f    LE^JTEMP'i 


I 


Go  To  «5lf 
(anoth*r  pa^«) 


Next 
Pa^e 


*0 


Clear  MASK! 
bits  oV 
LBCM) 


I 


LOCATE  =0 


£oo 


MJ    =r 

M 

move 

=  1 

novo- 

-0 

CALL  TK/VAC 

(*?) 

MOVE 

=  o 
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a-7 


Put    NO*M    in    octal 
posttUftt     10-13  of    LB(M) 


^®  (ip 


Compute* 
rL8(T>MASKll 


NAK)V  = 
MANY 


00    *o07 
I-ULMAX 


MAlOV  = 


LDQCWOwO 


Put  ITEMP  in 

L&iufi 
Put    J  TEMP  'm 
LB(MAV)V)-4-L&0l) 


i=man;y 


I 


MAMY^o 


5*07 


508- 


*o 


Clear  bit  2 


Acid  one  to 
[MISTAKE  (5) 


I 


ITEMP-I-a 

,JTEMP  =  M-a 


\5 

IS 


Set  bU  4+2  of 


I 


Go  To  513 

(next  pa<^e) 


1=  NANJY 


Next 


aae 


p^ 


110 


DO  Sll 

K=i,;tpmax 


IL  =  N)OON(K^ 
CALL    SITEdL^ 

AAA  (Ki-3,Mi-A-iB(rt>f^o  PSTAKJ(BI<1 


I 


3>K 


512 


>o 


W0W  =  NJOOKi(l) 


WOW  I  = 


15 


Go  To 
Bo*  22 


y  ® 

preceed'ir>c\  page 


>0 


Add    one  ~Lo 
MISTAKEN 


DO  5"  1 2. 

K=2>IPMAX 


5*13 


.   C" 

K  t)  1  1 

1  ! 

T       » 

I3 

1 

T2=b(lM) 


J  =  NJAV^ 

M=  LOCATE 
X=MAD 


Go  To  2.33 
(Box  22) 
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1=3. 


TI-B(7,J) 


bo*  12 


Clear   MAS.K2   btts  of 
LBC7).    Set    2.n± 
b\t   o-P     LBC3") 


ITEM?  =  octal  10-lS 
poilt'ioni  o-P  LB(J) 
In  upper  half 


*0 


=0. 


Go  To 

2SB 


I 


Set    bit   2.  of 
LfctT) 


=o 


Clear   3r&    bit 
o-f   LB  (r TEMP) 


Go  To  €00 

(Bo*  art 


LOCATE=M 
NAVY=  J 

MAD^I 


Clear  Ui   2  o*    LE(^ 
Lt>A2(LB\  LDOCMASK^, 

STL(XTGMP\  LWl(M*SK0, 
STL.£:rTEMP,> 


LATER(Ni) 

=  I 


Clear     MA5K3 
a  hi  set   MASKt 
o4    LBCT) 


Clear   MASKl     bits 
o-r     LBCT  TEMP) 


L0A(ITEMP\ARS^ 

STA(XT£MP,) 
K=  ITEMP 
Clear  <tth  bit  of  L6(K) 


ARS05) 
STACJTE^P) 
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START 
Box  23 


=  0. 


2£&)  =  o 


Go  To 
Box  24- 


&oxes    J23-25 


DO    2%  2 


T=khit(kjkj) 


do  ago 

K=I,KMAX 


BO-3,T>  =  60-3,7} 

-UTIME+iZaVlO1*]-    6(4-4,  J) 


=o 


=  0 


^O 


I* 
NM- 


*0 

")  c 

iW 

^ 

Do    to    fco*   25   ^or    K«2,NMAK  ,     3  =  KHTrO^ 
From    LE(T>  •SW    »^    T  was    part    o-?  an 
\nterstltial    pair,    1$  so ,    put    3 '&    partner 
on  the    site    o-t    tta    \r\tervt\tlal    pair  .   Clear 
the    Site  number  and   partner  nuv»\V>er  -from 
L&Cl).    AUo   clear     the  partner  rtu««A>er    -fro^ 
LBClL^.     I-?    T   wat  rot    part    o-f  ar\ 
interstitial    pair,   <\o   to    Box     2.5 


m=last(inminO 
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START 
Box  2k 


OO  ZOS 
T=I,IMMAX 


K=LASTO) 


Boxes     2Q-2& 


B0-3,»O=B(l-3,lO 


ENERGY    &(7,K> 
IEKJEP.G,V  =  K 


<o 


I 


Set-    bit  *l    a  no*    cleat* 

MASK6   o-9    LBCK) 


^O 


305 


MT=  LATERClT)         CALL  INVACCMJ) 

Upper  hal-f  o£  IU     -  K» 

Lo*«r  M-P  <#  IU    =MJ 

Write    Tape    £  ,  Tl> ,  fc(»-3>Mj) 


>o 


IT»=M2-l 


do  a&i 

IT=  I, IT 


sj 


26 


Go  To 

Bo*  afc 


»0  7<m 

J=»^INfAAX 


DO     BOG 
K«I,IT| 


M=LAST<jW 


asa 


I 


Put   WFACE  'i*  octal  *W-  o4  Lfctltfi 


79^ 

t 

Clear   4fc    Wt 

NFAC£=0 


ITEWP=  octal    10-13  o£    LBCNO 

TTEftP  =  octa\  £-q   o£  LBfNrt 
Clear  MASK^   bit*  oi    LB(*0 


CUar    MASK\    blH 
o£    LB(jTEMP) 


*© 
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XT=0 


f 


o 


DO  ^000 
L=I,LMAX 


Clear  N1ASK& 
Wis  o£  LBa) 


K  Write  Tape  &  ,  IT,      "\-__ 


S,IL4(IT) 


^S(^V-4>LVTSL 


Store    MFAC£ 


ITEMP=  octal     10-13 
JT£v\P  =  octa\     6-1 

o4  Ml) 


Clear    MASKS    biis    o£ 


320 

Clea*-  ^ 
Wits    o* 
LB(XTEMP} 


Cleav  MASK*   b-.k  o^  U(TTfMP) 


ENERGY  ^BCljL^ 
IEKJERG»Y  =  L 


B 
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Box  30 


WRITE    tape   &:     XX,  XV  ,  12  ,  ABO-3),    NLlNfc  ,  NPLANE, 
MAXLAT,  LMAX,  A,  SPHI,  FMASS ,  ETMB.ESH  ,  THERMAL,    EP&, 
LULL,  ALPHA,  fcETA  ,  N  .>  MMTS  ,  TTIME,  TSLl^N/TSC, 
OEKJERG.Y,   TENERGY ,    MISTAKE,  YENTRY  ,  "H  EKJTRY,   NA, 
E  M  AX,  E  FOUND.       WRITE    tape    3:  (LfcCt^  ,  60-1,0     L=l,LMAxy 


(^REWIND    8j) 


WRITE    tape   3:    TTIN\E  ,  TSL  ,  ENERGY,    N  ,  (or  N\V]T£}  ,   TEKJERG.Y  , 
OEKJERGY,   MIVTAKEO-5}  ,  £X,IY,I2,  L  ,  &(t-7,L>  ,  OCTAL  (L) 


Go  To    life 
(Box  II) 


Stop  \4    Stop 

Switch   lis  up 


TT  — 

i 

W9 

J    I  —       i 

1 

f 

SMRITE  tape  I*. 
JT 


WRITE    tape   3: 

THE   RUNJ   W£WT   TH 
FULL  t>ISTANJCENN 


-►T REWIND     &    \ 
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SU6R0UTIME    SITECM) 


Box    31 


(swrtV 


►  JT=  M 


\ 


IB(0- remainder  •£. 


"^"•JLi 

if 

TP,^  =    - 

remainder 

KJLIKIE 
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SUBROUTINE  IMVAaMJ) 


Box  32 


Cleav    MASK 2  <  MASK 6    ,  set 
MASK!     o$    LB(MM) 


DO  2S70 


K/IF  =0 

MISTAKE  C\o)= 
MISTAKE^ 


^D 

xfacect>  =  a«r 

Go  To 
2-V70 

I 

1 

IFACE(I)=  2-1  -I 

NIP  = 

:  KJIF  +  t 

2370 


IB(I)  =  BU,MM)/A 
TEMP=  IB(I) 


IBm  =  IB(I)  +  l 

_^/* 

(I,MM)/i 
EMP-O. 

4 

CO 

1 

f 

^- 

ass7 

\\^ 
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Box  33 


IU=  Xfc(3V  NPLANE  + 


<C> 


>0 


JA=  JAv| 
TW-TA-J 


J0  = 


Tfc=0 
TD-0 


*0 


© 


I 


JB=  IFACE(I) 


TK=| 


MISTAKE  (2s)  =  NVlS»TAKt(a>  4-1 


3PMAX=  5 


<^ 


JM-fc-TO 


JPMAX=^ 


JPMAX=6 


JPMAX=IS 


U 


K)OON(MoVo 

1=  I 


Bo/ 
34- 
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2701 


2702 


Box    2>4 


DO  2475" 
JP=I,TPMAX 


Go  "to    statement 
numbev  (2700  +  Jw) 


GO  TO    (2455,245  I,  245  2, 2453,  2.454,  .2  445),  TP 


GO   TO    (2455",  2451,2470,2454,24-52,  2453,2457, 
2456.24-53,  2454,2440,244  1  ,244  2),  JP 


2703 


2704 


2705 


GO    TO  (2-455,24^1  ,  2452,2453,  24 54^)  ,  TP 


GO    TO  (2451,  2452.,  2453,2454,  2.4^5), TP 


GO    TO   (2455,24-51,  2453  ,  2454,  24-65),  JP 


2706 


2707 


GO  TO   (2455,2452,24-5  3,  2454,  2445)  ,  J P 


GOTO   (2455,2451  ,  24-52,  2453  ^  24-45),  JP 


2708 


2709 


2710 


271  \ 


2712 


27  IS 


2714 


GO  TO    (24-55,  2451,  2452,  2.4  54  .>  244  5),  JP 


GO    TO    (2455,2470,2454,2457,2452,245^,2.440, 
2-44  I,  2462)  ,TP 


GO    TO    (2455,2451,2452,2453,  2454,  24-5?  .,  245^> 
244  1  ,2442)  ,TP 


GO   TO    (245  5,  2451,2470,  2453,  2457,  24-58,  24-54, 
244  0,  244i),  TP 


GO  TO    (2455,  2452,  2453,2454,2454,2457,  245^, 
2440,  2442),  TP 


GO  TO    (2455,2451,2452,2453,  245  4,  2457,-2453, 
245^,  2470), 3? 


GO  TO    (2455,  2451,2470,  2454,  24  52,  2454  s  24  40, 
2.44  I  ,2.462),  TP 
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ITEMP •> ^\^  j 


(A)    will    coital r\ 

2451  IL-t-NLIN/E  +  TL 

2452  IL-NLlNQ+TL 

2453  XL+  NiPLANE-VTL 

2.454  XL-  NPLANJE  -KTV 

2455  IL        r     .   . 

2456  IL-WLI^E  +  TL^L 

2457  IL+kJPLANE-l-JL-H 

2.455  I L  4-  N P L A M E \± NL IN E 
245<l  IL-t-WPLANE-NUINE 
2440  IL-NPLANE  +  TL+l 
24GI  1L-N  PLANE +N*L1NE 
2462  IL-NPLANE-NLIts/C 
2.465  XL"  I 

2470  IL+lsJLINE*3L-H. 


N\0OK)(l)  =   ITEMP 


TPMAX-    I-| 


Go  To    2741 

4  RETURN! 


=  0 


START 
Sox  35; 


2475 


® 


TP  = 


DO  248s 
K=I,TPMAX 


NOONtTP)  = 

MOONi(K) 


TP=JP-H 


JK-JP-I 

! 

f 

3£> 
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<o 


=0 


Go  To  &o*    S7 


2.4^2 

I 


5oxes      3£>4  37 


*0 


XL  =  NOOfOd) 


CALL    SITE  (I L) 


Go  To  2GX) 


Go  To   2720 

(So*  34) 


i 


6Q-3^tA)=  JE>0-3>A 


Nl-  3       Put    new*     site    4t{XL)  fr\i< 
Lb^MK^and   set  4t>    m    lBCIL) 


RETURN 


WRITE    Output)  •.  "ATOM ^  =0  ^V* 
Boy  37/  fMW>>  ha*  bee*  ?UceA    °"  ' 


ITEM^KJOONG^ 
iySTAN)C£(k>=-0 
CALL  SITELTTE/MP) 


i 


00    2.«5"»G 


NOOW  (  J) 
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-O 


hJOOti(J) 


DO  2SIS 
K=l,*MAX 


MMAX=  M 


IL  = 


J 


Go  To  2W2 
(60*  30 

"XT" 


£ve* 


NlOOKJfo.) 


oda 


Box  33 


IL  =  M0o/\J  ^1  > 


TI=Z6C4-6,MMf 
JA  =  I 


7A  =  0 


*0 


K-I^PWAX 


TTE*P= 


TMlKiCK^)- 
1000 -TSL 


I 


1  =  1, /-MAX 


CALL 
SIT&(rreMP) 

I 

1700 


*o 


T2=  T2  + 


MA   CbO-^mmVfiO-^oWnM 


2645 


Go  Tc? 


KMIN  =  I 

JK  =  TPMAX-I 


TMIkjCkV 

-to/ti 
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(start] — ► 


DO  2&&0 
K=/,  IK 


DO  Ol&GS 

r*i,"5 


MOOMCKKC/J) 
CALL  SITE  CrP) 


I 


TC2)  ' 

f^MM)-^!^) 


JZ6S0- 


NJ< 


.2&6S 


DO   2680 
I"  I, UMAX 


site 


3. 


>o 


2&6o 


r£rt=o 

MAX  =  / 


267S 


^0 


MAX  =1+1 


^es 


MM= 

I 

=*0    ^ 

v.    I     / 

•v  -0 

ILsIP 

G0  To  24^12 
CBo,  36) 

XM2=l 

\ 

' 

Go  To  .2361 
feox   32) 
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2Z0O 


box    39 


27Z0 


CALL 


Subtract  -£.A 

Add     &A  to 
BOW>MT) 


<o 


2125 


Add  ^A  to    B^max^hm) 
Subtract  AA-(V»*    BCmAv^j) 


Store    XP  (erte^    [n  LB(MM)  a*  a  LfcO*j) 
Set    (A-fc^    i  vi     Lfc(Xr^ 
<Siore     NT  In  MASKI    bit*    o£  Lfc(/nM) 
Store.     MM  In  HASKl  bit*.  o4  Lfc^ 


PO   272S 


T2.  =  lE(x>> 
BCr^-A-T^ 


Add    one    to     MISTAKE  CO 
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SUBROUTINE  INTER(MQjII,$) 


Boxes    46-41 


'9TAftf 


xc0-O  =  6.XP0-O 


£o*  41 


1 


15 


I 


£W)=(^elafcive   velocity  *" 
ZiOo)^  Zi/C Relative  -erter^ 
£20")=  Relative    velocity" 

Z.fc(\3)~   Attftl*     between   lini 
^©fnivm  "the     iwo  aiowvs  a*& 
relative,    velocity 
22£7)  =    ci     flrtitUl   <§*e^ 

at    closest   di'4ta*ce    tff 
approach 


Z2(S)-    £2(T)  >D  -i:g(g)1 


2.0'  2:2C^  +  22C30 
2:2.0)    vs  tKe  next    ^ucss 
•?or    closest    d1' stance  °f  approach 


-10 


>o 


H  Box  4-2 


>o 


€ZrC7^=^^^V 


I 


*E(^0 


2*(*)  = 


1 
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t)0    2.5 
1  =  1,4 


22^=22^VC0MO:b 


Boxes    42-43 


22^  =  C2/EXPP§2^«2i(QVC^-C^ 


?2<lD=    \  /["l-MWl 


22ft)  =  W(T)/(SQRTP{AB)<SrCz^0^4.2  2:^'sV?^^)  -£2d)J  } 


■^  25 


2Z«)=C0SP&ZC5^ 
22(3}=  Z2(sV  22-0^ 


f  2^^=  22<  3VK&V  22^/226) 


-^ 


RlYt-3>  =  X9Ct-3^x  XPC4-5 
vector    products 
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Bok  45 


START 


DO  30 


r^>=  1  +  3 

22(  5)  =  XC  (I)  -ZZftW  2£&)*&Ef7) 


X 


226=0  =   l(i»II)  +  X^)4.  [B(l3,Il)^xai^l«  Z^^O  •   10 


i  + 


' ' 


DEVa,2)=?2^-E2(5) 


22(5)  «XC(lVii(io)+22CLV"22^ 
22(<0  =  E(xs,ir\;  +  xc  (13} 


T2=0 


30 


DEVto^r     Z2-0O  +  22(5,> 
OEVCIS^t:  22^  -Z2<5> 


DO  29 


TUT1+-  coeva^Y]3, 


HZ* 


(^EKjd\ 


!  I 


DEV(7,w-    FMA^S'T-0.SlS0O7fe»5" 
0EV(7^=  FMASS'T.2' 0,5"!  3&cn  61 5 


L28 


PROGRAM   SLAVE 


Box 


START 


•Q 


REWIK/O     TAPE     8 


READ   TAPE  8 

IX,  IY,I2,  AB(I-3),N/LIN/E,  MPLAMk,  MAXLAT,LMAX, 
A,SPHI,  FMASS,  ETHRESH,  THERMAL,  EPE>  ,  LOLL, 
ALPHA^  BETA,  MTS,   MNTS  ,  TTIME  ,TSLl  0-30)  , 
A/TSCCI-SO^,    OEMER^r  ,    TE^£R6,Y  ,   MISTAKE  C\  -  \0)  , 
YEN/TRY  C  I-  10^  ,   ZEKJTRY  O-IO^  ,    NA  ,  EMAXC  »-30>, 
X^EFOUMOD,   LBC  l-LMAX),    BQ-7,  l-LMA>0 


~V»4Pe    ou"t   vem'mcier  to 
sec    selective  sw/ltcK  2.  up 


READ  \  CARD  (TAPE  2) 


I 


> 


PRIHT  i  LINE 
I   (COMMENT    READ  XN" 


DO  q-oo 


^00 


READ  lis/    KET(  t-^5) 


29 


PRINT 

"SELECTIVE    JUMP 
SWITCH   2  WAS  UPSX 


XHISTOO)=  SHCI3,F 
1HISTOCO"1-H7.I, 
IHIST0£3}=  SH2H    ?> 

IHIST0C4)  =  6H4HC. 
XHlSTOCl05}  =  IH) 


X2Ea^f=I^El5x  SU 

FaE24  =  xaEi^- 

MAS|O5=77770B 

MASKC^  =  7777000006 

MASKt3s77770000OOOOOg> 

MASK  14-7  OOOOOOOOOOOOOS 

KAASKSA-  fO OOOOOOOOOOOOOS 

MASKSU  =  2*fMSKSA 

MASKSET=  7300000000000007  & 
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-o 


A/TS=AWTS 


I 


B 


ox 


NSUBST  =  0 

E^OL=0 

ETHERM  = 

EFOUNO 

ESIDE  Cl- 

6^  = 

0 

NiSIDEO- 

£>)  * 

0 

NfcUL  =  0 

IKJTERST 

=  0 

^AA  =  K/A 

-   \ 

1407 


TSLI(I>  75Llto>«   10' 


-14 


TTIME=TTXW£*  lO 


-14- 


CLEAR  LB(L)  for 
bits   in     MASK  69 
w&   MASK\3 


DO    14-07 
1=  l,A/M 


90  i<fio 


CLEAR  L®iL)-Pox-  bits  \n 
MASKSET 


HH®} 
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90  t4H3 
L=t>LMAX 


Compute        £A)  = 


OK 


Counts,   NFACE=6fi 


MSIOECMFACEX 

Ada  ui}l)  -to 

fcSJDECNFACE) 


DOWN 


11^         [LB(L)»NA,ASKI3l 


1 


G  o   To 


CALL 
ROUNDEL) 


I»IL 


27 


A<id  owe  to  NSUL 
Add  B(7,L)  to  EBUL 
Set  bit #2  of  LKO 


fNEXT 
PAGE^ 


Set  bits  of   LEO} 


€0*respoh^\na   "to  bits 
ot  IL27  ^h:.ch  ave  set. 


Set  bit  *4- 


On    another  paae 
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Set  bit  #4 


Put    L  in  octal 
positions    6-^ 
of    LBa).  Put 
J  in  octal 
positions    C-^ 


AM  MASKSU 
to   LB{L) 

Go  To 

1444  K 


I 


Set  bit  *4 
o-f  Lfc(l) 


Ado  HAASKSA 
to  LB(L) 


Go  To 


Next 


pa^e 
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1445 

I 


Set  bit  *4^  «f   L6(l) 


-2."7 


ILB03'MASIO3l 


X  =  IL 


*o 


Set   MASKS  0 
bits  of    LBCO 


#o 


X 


Set  bit#l 
o£  L6(I> 


Set  M/^KSA 
b'.is  of  L£(0 


I 


Ado   ohe 

to  NVAC 


L=I,LMAX 


14-^H 

T 


^fAC  =  0 


Add   one  to 

NSAME 


&ox 
4 


WVAC=NVAOtfAXWT-  LMAX 


14-56 


Add  one  to 
INJTERS>T 


•4 


START 


TEMP^  Sum    of    ESID&0~6) 


I 


6ox  + 


ECAL=ETHER*A  +  EBUL+TEMP 
LMAXCAL=INTER«T*N&AM£+M£UBST+NBl>L  +  ITEMP 


I 


PRINT:       IX>  ASO),  If,  ABC2),  XZ  ,  AB(S)  ,  MAXLAT,  A  , 
SPHI,FMA*S,  ETHRESR,  THERMAL 


I 


YANJGLE-  ^-ALPHA 
*AMGLE  =  4^-.  BETA 


IT£MP=MAXLAT-*-l 


IT=LHW-AAAXLAT 


I 


PRXtvjT:  xt,  lull; 
EPB,  ALPHA,  tANGLE, 
BETA^ZAN^LE 


raWT;    L> 

YEKITO(L-MAXUT), 

2EMTRY('L-N|AKUT) 

A*»  L=nwsiwAx 


XT=30 


PRINT:    wts, 

WWTS,   TTIME, 

tslic»-waa\ntsc(i-waa^  , 


(PRINT:   £CAL, 
ETHERM,EWX(I^' 


JNT£RST  = 
-iMTER&T/i 


(  PRItOT: 
I     |\ATSTAKE(0 


PRINT:     LMAXCAL, 
LI^AAX ,  NSAME ,  KJSUe^T, 
Ik*TERST,  NVAC 
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►(PRINT-.      NSA1WE         ^ 


Box  5 


DO  \*\<lp 
M=I,LMAX 


I 


JLTEIA  =  UlllllOOOOlllll  B 
tT      =  177O0OO777771777B 


^— ►(^PRjMTt  NUMBERS(mp)) 


(    Skip  owe    line     on    ou"tpu"t  J 


IT=J-I 


I 


WUM&ERStJ^M 

te>  I'nc 

^^     1    1    /  b 

i 

I4?0 

PRXNX: 

KUMARS  cr> 
£or  X"\VIT 
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-d 


PRINT  s       NVAC 


N/1/ME£RSCIT)»L 
1T  =  XT+I 


#> 


PRINT:  \ 


\scs 


IT=  I 


box  6 


DO  1565 
L»I,MAXLAT 


J    PRINT: 
"I    NW|BERS(K 
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START 


PRINT  :       NSuBST 


Box   7 


TL=   rLBaVMA9.K\€l-3 
CALL   INITIALED 
CALL.  DEPTHPCL") 


sP 


/p«INT:  L,IL,\ 
I    \)EPTH,PERDIST  J 


\  I 




1517 


521 


PRIMT:^T£M, 
T&WMCfl) 


N/LMB&RS(T-30)=ICft-30) 

IL^-7 


CALL  HISTOfeo) 


\S*>\    •* 


PRIN/Ttl.IT, 


IL=0 


IC(l-IOO>  =  0 


I 


DO      15"  17 
L=  l>LMAX 


DO    ISAI 
1=1 ,30 


T=X-7 
TEM  =  T-0,5 
TEMP-T+O.S 


DO  1531 

x- 1 >  ao 


IT=I- 


Box 
2 

CALL   HISTofeo) 

^ 
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4 


Box  8 


icO- 100^  =  0 


i 


00   IS50 
L= I ,  LMAX 


CA^=  rLBaVMASK^ql 


LL-av  a 


-15 


IL=[l.B(LVMASKlSl'3' 


TE=  DEPTH 
TEI^PERDIST 


I 


CALL    INITIAL^ 
CALL    DEPTHPCO 


CALL    IMXTIAL^LL^ 
CALL  DEPTHP^LL^ 


h-a 


PRINT:  LjLL^IL.TEJEM, 
DEPTH,  PERDIST 


/WUKJTr  3>TEM 
\TEW,IC(I) 


J»  X-7 

TEM=  J-O.S 
TEMP=T+0.5 


DO    1556 


CALL, 


CALL 
HIST06-2C) 


N/UWbERS(|-^oV 
IL*Q 


PRINT:  I, IT, I 
XC^I+30^ 
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PRINT:    NBUL 


Go  To  Box  10 


Qo  To   \572 


DO   156^ 
I* I >30 


IT=IT+I 


I  1 


J  =  1-7 
TEM  =  J~0.S 


PRINT:  3\ 
TEM^TEMP, 


1574- 


(  PRINT: 
\    r,  IT, I, 
\XC(l+30) 


IL=0 


CALL  WlSTo(ao) 


IC(H00^O 
IT -| 


I 


Box  9 


DO    \5"7?    L=l>LMAx 


Skip  to  next 
paae  ot  output 
papey* 


/VRlNTtL^l-^V 
(  OCTAL6-),  DEPTH, 
V    PERPrST 


i 


I 


CALL  IWITIAL(L) 
CALL   DEPTH P(L) 
CALL  E COUNT (L) 


NUK\6ERS(\-3o>)  =IC(l-3o) 
IL=-7 


CALL 
UISTOfco) 


XT  =  I-  | 
ICCX+30^ 


DO    1574- 

i*i>ao 


<  PRINJT:  I,  KETaVN, 
|<ETa+i\lC(l+^)  )- 
for  i^asy 


NUMBERS(\-K) 
=-IC(5l-75^ 


CALL 
HI^TO(i^) 
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(PRINT:  j/\ 
\N  SI  DE(  j)/ 


CALL  INITIAL^) 
CALL  DHPTHP(L) 
CALL  £COUWT(L) 


NJFACE=0 
lC(lrl06i=0 
hJT£  =  0 


PRIMT 
N  SI  DEO) 


Box  10 


DO   \59S 

L=!,LMAX 


=o 


N/FACE  = 


il8a)'VsASKl4l'i 


39 


< PRINT:     L,  B(»-7,L.), 
OCTAL(L),  DEPTH, 
PERDIST ,  NTS 


159  S 


* 


Ne*t 


?*y 


.42 


00    I  &<?& 
1=  1,30 


L-X-7 
TEM  =  L-0.S 
TEMP=L+0.5 
NU(ASERSm  =  lC&) 


PRINT:  L,TEM, 
TEMP,  1C(D 


DO    1697 

i*i, ao 


CALL   HIST0(30)  «* 


IL=-7 


<o<\b 


tr*  i-i 

NUMBJERSd)- 

ICCI4-30) 


PRINT:  1,11, 
I,  IC£L>30) 


1^7 


IL=0 

CALL  HIST0&2O) 


h/lVMDUDC^T^ 

T  r/T  -L  C  /s\ 

iil 

00  16^8 

rVl/lvIIStKiiV>-t-j—   XH.X  t    j  c^y 

I 

' 

PRINT:    I,   KETQ), 
KETd  +  D,  ic(i  +  so) 


CALL   HISTOC25) 


^2 
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L= 


PRINT:  L, 
e>(\-7,L\0CTAL(O 


Bo*    // 


DOWN 


Print   out 

head  mas, 


DO   l\7 
LOJ-MAX 


Print    out 
head  mas 


PRINT  i  L,        \^_ 
Bd-^L^OCTALCDyT 


117 


(Skip  one    I 'me 
on   output 
paper 


\20 


W  END  j 
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SUBROUTINE    ROUND(L) 


Box  12 


IB(\-3)  = 
6(l-3)/A  +0.5 


ITEMP= 

IBO)  +  I&C2)  +  IB(3> 


RETURN 


XL-  IB(3)-NPL/\NE  + 
XB(a).  NLIKJE  +  IB(0/2  ■*■  | 


NUMBERS(0  = 
NlMBERS(2)  = 

NUMBERS(3)  = 
NWMBERS(4)  = 
NUMBERS  (5)  = 
NimfcER.S(Os 


IB(3)«NPLANJE  +  IB^^VNLIME"»-CrB(O  +  0/a  +1 
18(3)'  N PLANE  4- IBUVNtlNE  +[lB(l)-Q/2  +1 
IB(3V  NJPLANE  +  [XBP)  +  Q«  NLINE  +  I  BO  V2  4- 1 
IB^3VKIPLAME  +  [lB^)-0-NLINE  +•  I&HV2  +1 
LXB(3HQ'NPLANE  *!£(*> NLIM£4JB>6V:H-» 
<[lB(3>V  Q-  KIPLAN)E4lB,aVNtIKjE^JC^»V^+l 


I 


TEMP*  10 


so 


00     1340       I  = 


DO     1335 
ITENUM^ 


CALL  INITIALaT) 
TEN\  =0 


" 

1335 

Ada 

[xYi(lTEWP)-B(rTEMf\L)|  to 

TElfl 

IL=  IT 
TENP  =  TEKA 


\M0 
— i — 


END 
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SUBROUTINE    INITD\L(L) 


Box   13 


XB(aVCaVNLTNE 
I  BO  WAV  2 


xyna^A-LiBa^ 

i 

! 

1015 

1 

1 

RETURN 

Do 

1015 

EVEN    ^^^fL^S^ 

1*1,3 

■ 

i 

ODD 

TC/lN  —  TD/i\  J-  1 

JLbCI ;  - . 

LDUJT  | 

1023 


I 


xyz^=yentry(l-maxlat) 
xy?(2)  =2£kjtry^l-maxut^ 


W  END  J 
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SUBROUTINE  ECOUNT(L) 


Boxes  14  awl  15 


TEW>  =  BC7,I>KET&5) 


TEMP=  KETft+O-BtyL) 


SUBROUTINE   DEPTHPCO 


PERDTST^ 
SSRTF-f 


I 


J>  1 ,34- 


<0 


I- 


1    ' 

lfc4-0 
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SUBROUTINE    HISTO(NGROUPS) 


Box    \G 


START 


NTOTAL=0 


DO  UIO    I=l,N£fcOUPS 


TOTALN=   NTOTAL 
BIGWUM  =  NUMBIG 


I 


PRINTt 
NTOTAL 


I 


Add  NUMBERS^)  to  NT01AL 


DO  1113 

J=  I ,  NGROUPS 


1 1 

II 10 

JtflMBlG 


NUMBIG     =     NUMBERS(I) 


NL»MBERr   IOO*Nl>M&£RS(j)/BIGNUM  +  O.S 
TEMP  =  \00«  NUMBERS  J)/TOTALN 


do  mi 

3>5J04 


ITEMP*  NUMBER +  4- 


llll    -* 


IHIST0ft)-3HIH 


DO   1112 
I»5,ITEMP 


IHIST0CO=3HIHX 


1112 


IT  =  J+IL 


TekidV 


PRINT:     IT,  TEMP 
with     IHISTO    as  format 
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PROGRAM  RON 


(  START  j- 


UP 


:»p     ~to    next    p35C 
paper  .       Skip    4our 
V     output     paper* 


o-e 


Out-  pU  t 


f      Kead     one    line    C  record)   o*f 

Comment    -Pronr\   Tape    2    and 
V     write    \z    on     output     tape 


/^Read   (Tape  4)  :    rx  ^  ry  ,  IE  ,  AbO-S),  "\ 
[     MAXLAT,  A  ,  SPHI,  FMASSETHR^H  JHERMAll* 
V    MNP,  {[Btt/S)  I*\$  TsljMAXlAT^KIiJNr.K/PlAN^/ 


Write    On   output   tape: 

Lattice     of  meK'SiartS) 
number   «"f  atorns    in 
lattice,  lattice   spacing 
constant,  spKeve   o4 
'm-vluence,  atomic  irv^as^ , 
tKe     two     enefCxu 


LMAX  = 

MAKLAT  +MWP 


K 


Skip     "Vovax*     l\ne^    oir\ 
output      paper 
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(s™t)— *Q 


Read  T  -Prom 
input  tape  2 


© 


RA= l/A 


i 


©* 


/Read  IT 

V  -Prom  Tap*  6 


XN  »  upper    Kal-P    o*f    XT 
IL*  upper    hal-f    of     IT 


T=  AfcSPt 

PCl)-B(l,iO] 


xci,nWM 

NT(bO  =  it 


=o 


*o 


Kl*W-H 


© 


00  2.5 
1-1,3 


3001 


N  =  N  -I 
ITEM?=N 
J  =0 


© 


>0 


<o 


©- 


15 
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90    45 
L=I»LMAX 


M=0 
TL-L 
NO  =  -l 


DO    <+€ 
K=1,1TEIV\P 


XU=  upper  Via\f 
o£   NT(K) 


11  =   lo^er   ha|-f 


\ 

Do  40 

f 

© 


<Skip   one 
line    on 
ou"tpu"t 


Wvite    ouX   htab\Y\<\ 

TOY  orbit   OT    atoynll 


SCO^.tfr^) 


40 


Write    out 


© 


Go    T0 
®* 

K)=l 

rreceedirm   Pac\e 
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APPENDIX  V 
DESCRIPTION  OF  THE  FLOW  CHARTS 

The  explanation  given  below  is  to  be  used  with  APPENDIX  III 
(Program  Listings)  and  APPENDIX  IV  (Program  Flow  Charts) . 

PROGRAM  MASTER 
BOX  1 

This  box  writes  the  title  statement,  "THIS  IS  PROGRAM  MASTER" 
and  as  many  comment  cards  (80  spaces  per  card)  as  desired.    The  DO 
loop  is  written  for  five  comment  cards  at  present ,  but  can  be  readily 
changed  if  desired  „ 
BOX  2 

Reads  input  parameters  for  the  run .    Formats  are  given  in  the 
listing  in  APPENDIX  III . 
BOX  3 

Changes  lattice  dimensions  (LX,  IY,  IZ)  into  floating  point  format, 
and  computes  the  physical  dimensions  of  the  lattice  „    These  are  then 
permanently  found  in  AB  (1-3) .    It  must  be  kept  in  mind  that  IX  must 
be  ODD. 
BOX  4 

Computes  NLINE ,  NPLANE ,  MAXLAT ,  LMAX  (the  initial  LMAX)  from 
the  formulas  given  in  APPENDIX  II . 
BOX  5 

Computes  initial  lattice  positions  by  use  of  subroutine  SITE. 
Stores  the  site  number  and  the  fact  that  the  site  is  occupied  in  the  LB 
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array.    Stores  a  -10.0  in  each  location  of  the  TLAST  array.    This  is 
necessary  for  collisions  occurring  in  the  first  time  step,  otherwise 
these  collisions  would  be  ignored . 
BOX  6 

Writes  initial  lattice  positions  on  Tape  6  in  binary  for  eventual 
use  by  program  RON.    Also  sets  initial  or  zero  values  for  the  indicators 
shown. 
BOXES  7 ,  8 ,  and  9 

Sets  initial  constant  values,  sets  values  of  masks,  and  reads  in 
the  input  parameters  for  the  appropriate  Born-Mayer  potential,  either 
potential  1 ,  2 ,  or  3 . 
BOX  10 

This  box  includes  the  regeneration  process .    Jump  Switches  1  &  2 
are  raised,  leaving  Jump  Switch  3  down.    At  the  start  of  the  next  time 
step,  the  regeneration  information  will  be  written  on  Tape  7  in  binary, 
and  the  tape  will  be  rewound .    To  regenerate  the  run  the  program  must 
be  restarted,  with  all  three  jump  switches  in  the  raised  position.    After 
the  program  has  started  to  read  Tape  7  the  jump  switches  may  be  reset. 
When  the  computer  has  finished  reading  Tape  7 ,  the  tape  will  be  re- 
wound.   Further  regeneration  tapes  may  be  made  after  this  point  has 
been  reached .    The  main  DO  loop  over  the  time  steps  is  also  started  in 
this  box.    Immediately  after  the  start  of  a  time  step  the  current  values 
of  TENERGY,  N,  IENERGY,  and  ENERGY  are  written  on  Tapes  3  &  4, 
The  output  on  Tape  4  is  usually  transferred  to  the  typewriter  to  provide 
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a  visual  check  on  the  validity  of  the  run  as  it  progresses. 
BOX  11 

All  decisions  concerning  continuation  or  abandonment  of  the  run 
are  made  in  this  box .    A  jump  can  be  made  to  the  output  section ,  the 
normal  output  dump  made,  and  a  return  to  this  box,  or  abandonment, 
accomplished  by  the  outside  control  of  the  Jump  switches  0    The  run 
will  be  abandoned,  after  an  output  dump,  if  the  most  energetic  par- 
ticle has  an  energy  less  than  THERMAL,    However,  the  run  will  not  be 
abandoned  under  this  condition  if  other  particles  are  to  be  shot  into  the 
lattice  o 

Additional  particles  will  be  shot  into  the  lattice,  if  the  proper  jump 
switch  is  set,  at  the  start  of  the  next  time  step  that  is  one  less  than  a 
multiple  of  LULL.    For  example,  if  LULL  is  3,  and  the  proper  switch  is 
set  in  time  step  6  (or  7) ,  an  additional  particle  will  enter  at  the  start 
of  time  step  8.    The  switch  must  be  left  in  the  set  position  until  after 
the  particle  has  been  read  into  the  program. 

The  input  co-ordinates  for  the  particle  are  given  as  -  1.0  for  X, 
and  the  actual  point  on  the  front  face  of  the  lattice  we  desire  to  hit. 
The  angles  ALPHA  &  BETA  are  given,  as  is  the  energy.    This  box  then 
calculates  the  proper  co-ordinates  and  velocity  components  to  achieve 
the  desired  impact  point „    Since  the  new  particle  is  the  most  energetic 
in  the  lattice,  the  Time  Step  Length  is  also  recalculated  at  this  time. 
BOX  12 

Here,  the  TSL  is  recalculated  if  the  number  of  the  time  step  is  an 
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even  multiple  of  JPB ,  and  the  first  30  values  are  placed  in  the  TSLI 
table  for  output  reference . 
BOX  13 

This  is  the  only  energy  check  made  during  the  run,  done  every  time 
step.    The  total  energy  (obtained  as  a  sum  of  the  individual  energies) 
is  compared  with  the  original  energy  (the  total  amount  shot  into  the 
lattice),  and  if  they  differ  by  more  than  1%,  the  MISTAKE  (1)  error 
indicator  is  increased  by  one„ 
BOX  14 

The  value  of  ENERGY  is  recorded  in  the  EMAX  table  for  the  first  30 
time  steps,  the  total  energy,  TENERGY,  is  recalculated,  and  the  LB 
array  is  reset  and  now  shows  that  none  of  the  atoms  have  been  through 
the  current  time  step, 
BOX  15 

The  major  DO  loop  on  the  particles  is  started  here,  with  the  LB 
array  used  to  check  certain  conditions  on  each  particle.    If  the  atom: 

1)  Does  not  have  an  energy  greater  than  THERMAL,  or 

2)  Has  left  the  lattice ,  or 

3)  Has  completed  this  time  step,  or 

4)  Has  been  through  INVAC  and  has  not  had  a  collision  since , 
a  jump  is  made  to  the  end  of  the  DO  loop,  and  the  next  atom  is  con- 
sidered. 

Therefore,  only  those  atoms  are  considered  that  satisfy  all  the 

following  conditions: 

155 


1)  The  atom  is  a  bullet,  i.e.  has  more  energy  than  THERMAL, 

2)  The  atom  is  in  the  lattice , 

3)  The  atom  has  not  completed  this  time  step,  and 

4)  The  atom  has  not  been  through  INVAC  since  its  last  collision 
If  all  the  preceeding  conditions  are  satisfied,  the  initial  values  of  the 
counters  and  lists  shown  in  BOX  15 ,  APPENDIX  III  are  set  to  zero  or  other 
appropriate  values.    M,  the  fifth  Index  Register,  is  then  set  equal  to  L, 
the  fourth  Index  Register.    L,  as  such,  is  not  used  for  the  rest  of  the 
DO  loop,  until  this  pass  through  the  DO  loop  is  completed  and  a  new 

L  is  chosen. 
BOX  16 

All  atoms  within  a  mathematical  box  with  sides  3.02  (A)  (centered 
at  M)  are  placed  on  the  NUM  list  here.    Atoms  are  excluded  if  they  have 
left  the  lattice  or  have  been  through  the  time  step.    If  the  list  contains 
only  one  atom  (M  is  placed  first  on  the  list) ,  then  a  jump  is  made  to  BOX 
25  where  another  value  of  M  is  chosen  from  the  LAST  list.    With  other 
atoms  in  the  box,  indicators  IN 3  and  NFACE  are  set  to  zero. 
BOX  17 

For  every  atom  on  the  NUM  list,  the  following  parameters  are  com- 
puted with  respect  to  atom  M: 

1)  The  undeviated  distance  of  closest  approach  between  centers , 
called  DSTANCE  (     ) , 

2)  The  time  of  closest  approach  between  centers,  also  un- 
deviated, called  TMIN  (     ), 
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3)  The  time  when  the  two  atoms  are  separated  by  a  distance  of 
SPHI#  called  T  (    ).    This  is  the  actual  time  a  collision 
would  occur. 
The  distance  is  given  in  Angstroms ,  with  the  time  in  jiffys  ,  relative 
to  the  start  of  the  current  time  step . 

Various  conditions  are  now  imposed  on  these  quantities  to  insure  the 
validity  of  these  presumed  collisions .    An  atom  must  pass  all  the  con- 
ditions to  insure  that  a  collision  will  take  place.    The  conditions  are: 

2  \  _6 

1)  ftV)    >  l.Ox  10   D, 

2)  DSTANCE  (     )  £.  SPHI , 

3)  T  (     )  lies  between  +  TSL  of  the  start  of  this  time  step, 

4)  T  (     )  is  less  than  0.99999  TSL.    This  eliminates  collisions 
that  end  too  far  into  the  next  time  step . 

5)  The  TLAST  for  both  atoms  must  be  less  than  the  absolute 
time  of  this  collision. 

If  all  of  the  above  conditions  are  satisfied,  IN3  is  increased  by 
one.    If  one  or  more  of  the  conditions  is  not  satisfied,  T  (     )  is  set 
equal  to  a  large  positive  number  (100  TSL  serves  this  purpose  in  the 
program) . 

It  should  be  noted  that  DSTANCE  (4) ,  TMIN  (4) ,  and  T  (4)  are  the 
parameters  associated  with  the  atom  that  is  number  4  on  the  NUM  list, 
i.e.  NUM  (4) ,  and  so  on . 
BOX  18 

The  minimum  time  on  the  T  (     )  list  is  found.    All  those  on  the  NUM 
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list  whose  corresponding  T's  are  equal  to  the  minimum  time,  or  within 
(CUTOFF)  (TSL)  of  the  minimum  time  are  than  placed  on  the  KHIT  listo 
Atom  M  is  placed  first  on  the  KHIT  list.    At  this  point,  if  INPUT  is  zero, 
the  KHIT  list  is  duplicated  on  the  LAST  list.    This  occurs  only  when  M 
equals  L.    INPUT  is  increased  and  the  next  box  is  entered  if  there  is 
more  than  one  atom  on  the  KHIT  list,  i.e.  another  atom  besides  M.    If 
there  are  no  other  atoms  on  the  KHIT  list,  a  jump  is  made  to  BOX  25, 
and  M  is  set  equal  to  the  next  atom  on  the  LAST  list. 
BOX  19 

This  box  and  the  next  are  concerned  with  the  two  body  interaction 
itself,  and  the  subsequent  scaling  methods  for  energy  and  velocity. 
These  scaling  methods  are  used  whenever  M  collides  with  more  than 
one  atom.    The  pre -interaction  velocities  and  energies  are  stored  in 
the  SAVE  array.    The  COLD  list  is  set  to  zero,  and  J  is  set  to  KHIT  (JA) . 
JA  is  the  index  used  for  the  KHIT  list  in  this  box,  M  then  hits  the  atoms 
in  order  of  their  placement  on  the  KHIT  list.    JA  is  initially  two,  and 
increases  up  to  and  including  NMAX. 

With  J  selected,  LB  (J)  is  checked,  and  if  J  is  a  member  of  an  inter- 
stitial pair,  NPAIR  is  set  to  3.    The  indicator  NPAIR  is  used  in  BOX  24 
to  insure  that  the  appropriate  action  is  taken  with  respect  to  J's  inter- 
stitial partner  after  the  collision  is  over,, 

Since  the  atoms  on  the  NUM  and  KHIT  lists  do  not  have  the  same 
placement,  a  search  is  now  made  to  find  J  on  the  NUM  list.    When  this 
is  done,  we  have  the  collision  time,  T,  and  the  collision  parameter,  PAR 
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The  two  atoms ,  M  &  J ,  are  then  moved  ahead  in  time  to  time  T .    If  M 
has  already  had  one  or  more  collisions,  it  must  be  moved  back  in  time 
to  the  start  of  this  time  step,  and  then  ahead  to  the  start  of  this  collision 

The  interaction  subroutine  is  then  called .    Outputs  are  contained  in 
the  DEV  array  as  the  new  positions,  velocities,  and  energies  of  M  &  J. 

TLAST  is  now  calculated  for  J ,  and  J's  co-ordinates  and  velocities 
are  set  to  those  of  the  DEV  array.    Notice  that  the  TLAST  for  J  does  not 
include  any  portion  of  the  time  necessary  for  the  collision.    If  a  portion 
of  this  time  were  included,  significant  collisions  would  be  eliminated. 
The  COLD  array  (1-6)  contains  the  sum  of  the  final  position  and  velocity 
co-ordinates  for  M  as  given  by  the  subroutine  for  all  of  M's  collisions. 
The  total  energy  lost  by  M  (ELOST)  then  equals  the  energy  gained  by 
this  J  plus  that  gained  by  the  other  J's  on  the  KHIT  list.    NHIT  shows 
the  actual  number  of  atoms  that  have  collided  with  M . 
BOX  20 

In  this  box,  the  scaling,  by  various  means, of  the  velocities  and 
energies  of  the  atoms  on  the  KHIT  list  is  accomplished. 

The  temporary  quantity  T2  is  set  equal  to  the  previous  energy  of  M 
minus  the  amount  lost  by  M  in  all  its  collisions . 

If  T2  is  zero  or  negative*,  the  energy  and  velocities  of  M  are  set 
to  zero.    With  T2  negative,  the  energies  and  velocities  of  all  others 
on  the  KHIT  list  must  be  scaled  to  conserve  energy.    All  atoms  are 
scaled  in  the  same  proportion,  the  absolute  direction  of  their  velocity 
vectors  is  preserved,  their  energies  being  scaled  by  the  square  of 
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the  scale  factor  used  on  the  velocity  components . 

In  all  cases ,  the  spatial  co-ordinates  of  M  after  the  collision 
must  be  found.    These  are  set  equal  to  the  numerical  average  of  M's 
positions  as  computed  by  the  subroutine.    This  is  accomplished  by 
simply  dividing  COLD  (1-3)  by  NHIT . 

For  a  positive  T2,  there  are  two  cases  ,  the  energy  of  M  before  the 
collisions  above  ETHRESH  and  below  ETHRESH. 

When  the  original  Ej^  ETHRESH  and  there  was  only  one  collision, 
the  co-ordinates  of  M  are  set  to  the  DEV  results,  and  a  jump  is  made 
to  the  next  box.    If  there  was  more  than  one  collision,  E     is  set  equal 
to  T2,  and  the  velocities  are  scaled  so  that  the  components  will  be  in 
the  same  proportion  as  the  sum  of  the  individual  resultant  velocities 
as  computed  by  the  subroutine.    This  essentially  gives  M  a  resultant 
direction  equal  to  the  vector  sum  of  the  directions  M  would  have  as  a 
result  of  its  collisions  with  the  rest  of  the  KHIT  list. 

When  the  original  Em<^  ETHRESH,  we  assume  that  M  has  been 
oscillating  about  a  site,  and  its  site  number  is  obtained  from  LB  (M)  „ 
Em  is  then  set  equal  to  T2,  and  the  velocities  are  scaled  so  that  the 
resultant  velocity  vector  will  point  toward  M's  oscillatory  center.    The 
scaling  factor  is  (V2/  (AX2  +AY2  +  AZ2))1'2    This  is  multiplied  by 

&X,  AY,  and  AZ  to  obtain  the  correct  components  „    This  scaling  auto- 

2 
matically  keeps  V    in  proper  proportion  to  E    . 

BOX  21 

TLAST  for  M  is  calculated  at  the  start  of  this  box.    M's  TLAST 
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could  not  be  calculated  before  this  point  since  M  had  not  yet  parti- 
cipated in  all  its  possible  collisions . 

This  box  then  insures  that  all  atoms  with  energies  less  than 
ETHRESH  have  site  numbers  stored  in  LB ,  that  they  are  placed  on  the 
LATER  list  if  their  energies  are  less  than  THERMAL,  or  that  they  are  left 
alone  if  in  between  the  two  thresholds  . 

If  an  atom  has  E^  ETHRESH,  its  site  number  must  be  removed  from 
LB  (M) ,  and  the  bit  signitifying  an  occupied  site  must  be  removed  from 
LB  (site) ,  unless  the  atom  was  once  part  of  an  interstitial  pair,,    If  it 
was  part  of  an  interstitial,  then  the  partner  section  of  LB  must  be  re- 
moved from  both  LB '  s  . 

If  an  atom  should  occupy  a  site  and  doesn't,  then  a  site  must  be 
found.    This  is  accomplished  by  going  part  way  through  INVAC ,  INVAC 
is  exited  by  use  of  the  MOVE  indicator.    If  a  site  is  calculated  for  M, 
and  it  is  occupied ,  the  information  pertinent  to  an  interstitial  pair  is 
recorded  in  LB.    If  the  site  is  occupied  by  an  interstitial,  M  is  placed 
on  the  site  anyway,  and  the  fact  that  a  "triple  interstitial"  was  formed 
is  recorded  by  increasing  MISTAKE  (5) .    Em  is  inspected  at  this  point , 
and  MISTAKE  (3)  is  increased  if  Em  is  negative  ■    The  symbolic  language 
of  this  box  may  appear  complicated,  but  comprehension  should  be 
facilitated  by  the  flow  chart. 
BOX  22 

All  other  atoms  on  the  KHIT  list  are  now  subjected  to  the  same  pro- 
cess M  underwent  in  the  previous  box,  except  that  here  a  jump  is  made 
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to  Statement  600  to  enter  INVAC .    To  preserve  the  values  of  I ,  J,  and  M, 
and  also  make  M  equal  J,  the  values  of  I,  J,  and  M  are  stored  in  MAD, 
NAVY,  and  LOCATE,  respectively.    These  two  boxes  might,  at  some 
future  stage  of  development  be  combined  into  one  box  covering  the  entire 
KHIT  list.    However,  when  this  section  was  developed,  the  treatment  of 
M  and  the  others  on  the  KHIT  list  was  sufficiently  different  so  that  this 
combination  would  have  been  prohibitively  difficult.    Most  of  this  dif- 
ficulty has  disappeared  as  the  program  developed  . 
BOX  23 

All  atoms  on  the  KHIT  list  are  now  backed  up,  time-wise  and  space- 
wise,  to  the  beginning  of  the  current  time  step      Each  atom  must  be 
backed  up  using  its  particular  T  (     ) ,  since  they  were  not  all  hit  at 
exactly  the  same  time,    A  search  through  the  NUM  list  accomplishes 
this,  giving  the  correct  value  on  the  T  list  for  the  computation. 
BOX  24 

If  one  of  the  J's  on  the  KHIT  list  was  a  member  of  an  interstitial 
pair,  then  NPAIR  is  three,  and  a  jump  is  made  to  Statement  236.    The 
relations  between  atom  M  (the  incoming  atom) ,  atom  J  (the  member  of 
the  pair  struck  by  M) ,  and  the  partner ,  atom  LL  (the  other  member  of  the 
interstitial  pair) ,  are  now  considered  „ 

If  J  has  an  energy  between  the  two  thresholds  (vibrating  about  its 
site),  the  information  in  LB  about  it  must  be  retained.    If  the  partner, 
LL,  has  been  hit,  and  has  an  energy  greater  than  ETHRESH,  the  MASK1 
portion  of  both  LB's  must  be  erased .    If  both  have  an  energy^  ETHRESH, 
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nothing  is  done  to  either  LB.    If,  however,  J  has  an  energy  greater  than 
ETHRESH  and  atom  LL  has  not  been  hit,  we  must  erase  from  LB  (J)  the 
site  and  partner  number,  erase  from  LB  (LL)  LL's  partner  number  (which 
is  J) ,  and  also  move  atom  LL  back  onto  the  site.    It  would  be  a  definite 
error  to  leave  the  partner,  LL,  on  its  previous  split  position,  so  it  seems 
more  realistic  to  move  it  back  onto  the  site, 
BOX  25 

The  interactions,  scaling,  and  correction  of  LB  have  now  been  com- 
pleted for  this  round  of  collisions .    A  jump  is  now  made  to  Statement  200 
in  BOX  16.    If  M  has  no  more  collisions  this  time  step,  a  jump  back  to 
this  point  will  be  made.    If  M  does  have  further  collisions,  they  are  cal- 
culated and  carried  out. 

Upon  entering  this  box,  if  IN3  is  zero,  then  no  collisions  were  made 
during  the  last  pass  through,  and  this  M  has  completed  the  time  step. 
The  next  atom  on  the  LAST  list,  the  INMIN  th  one, is  made  atom  M  = 
INMAX  is  the  limit  of  this  list.    INMIN  is  increased  by  one,  and  a  jump 
is  made  to  Statement  200.    When  the  LAST  list  has  been  exhausted,  i.e. 
each  one  has  been  through  the  process  until  it  will  have  no  more  colli- 
sions    this  time  step,  an  exit  to  the  next  box  is  made. 

Any  atoms  on  the  LAST  list  that  have  been  put  on  the  LATER  list  to 
go  through  INVAC  are  not  sent  back  through  the  collision  process  since 
they  have  MASK6  set. 

The  name  of  the  atom  under  primary  consideration  was  changed  from 
L  to  M  in  BOX  15  to  prevent  the  above  process  from  destroying  the  value 
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of  L,  since  L  is  the  index  on  the  main  DO  loop  over  the  atoms  . 
BOX  26 

In  a  DO  loop  over  the  LAST  list,  only  those  atoms  not  on  the  LATER 
list  are  selected,  and  then  moved  to  the  end  of  the  time  step.    This  fact 
is  then  recorded  in  LB .    The  atom's  energy  is  then  compared  with 
ENERGY,  the  largest  one  becomes  the  new  ENERGY,  and  INERGY  is 
changed  if  needed. 
BOX  27 

If  NZ  =  1 ,  the  LATER  list  is  empty,  and  a  jump  is  made  around  this 
box.    If  not,  IT1  is  set  equal  to  (NZ  -  1) ,  as  the  upper  limit  of  the  DO 
loop  to  follow.    INVAC  is  then  called  successively  for  all  of  the  LATER 
list,  writing  on  Tape  6  in  binary  the  particle  number  and  time  step, 
both  contained  in  IU  ,  and  the  X,  Y,  and  Z  co-ordinates  . 
BOX  28 

In  this  DO  loop  on  J,  only  those  atoms  on  the  LAST  list  that  were 
not  on  the  LATER  list  (and  have  consequently  been  through  INVAC)  are 
considered. 

All  three  co-ordinates  are  compared  to  the  lattice  dimensions .    If 
an  atom  is  outside  the  physical  dimensions  of  the  lattice,  a  value  of 
NFACE  is  calculated.    NFACE  and  the  number  of  the  time  step  of  exit 
are  then  recorded  in  LB  (M) ,  the  site  number  and  possible  interstitial 
partner  are  erased  from  LB  (M) ,  and  M°s  number  is  erased  from  any 
interstitial  partner's  LB.    The  memory  of  occupancy  is  erased  from  the 
site  if  M  is  not  an  interstitial  member,  and  the  next  atom  on  the  LAST 
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list  is  considered. 

This  is  the  end  of  the  major  DO  loop  on  L,  the  next  L  is  chosen, 
or  an  exit  is  made  to  the  next  box  if  the  DO  loop  on  L  is  completed, 
BOX  29 

The  same  procedure  is  followed  here  as  was  followed  in  BOXES  26 
and  28  above ,  except  that  atoms: 

1)  That  have  been  through  the  time  step , 

2)  Having  an  energy  less  than  THERMAL,  or, 

3)  That  are  outside  the  lattice 
are  not  considered., 

This  is  the  end  of  the  major  DO  loop  on  N,  the  time  step  is  completed, 
and  either  a  new  time  step  is  started,  or  an  exit  to  the  next  box  and  the 
output  section  is  made . 
BOX  30 

Writes  selected  lattice  and  program  parameters ,  and  a  general  lattice 
dump  on  Tape  8  in  binary  for  eventual  use  by  the  SLAVE  program      Various 
BCD  output  is  then  written  on  Tape  3 ,  and  if  the  DO  loop  on  N  (the  time 
steps)  was  completed,  a  (-1)  is  written  in  binary  on  Tape  6  and  the  pro- 
gram ends.    If,  however,  the  DO  loop  on  N  was  not  completed,  a  jump  is 
made  back  to  BOX  11  „    There,  a  jump  is  made  back  to  this  box  (with  the 
resultant  (-1)  on  Tape  6,  etc.)  if  Jump  Switch  3  is  not  set.    In  the  normal 
operational  mode,  the  DO  loop  is  not  completed,  and  the  program  itself 
terminates  computation  by  a  jump  from  BOX  11  to  the  start  of  this  box, 
the  output  is  written,  the  jumps  back  to  BOX  11  and  back  are  made,  and 

165 


the  program  ends . 

A  jump  around  the  BCD  section  of  the  output  may  be  made  by  setting 
Jump  Switches  1  &  3.  To  facilitate  resetting  of  the  jump  switches,  Stop 
Switch  1  may  be  set.  If  this  is  done,  the  program  will  stop  after  writing 
Tape  8,  and  again  before  jumping  back  to  BOX  11. 

Tapes  3  &  4,  then,  are  used  for  BCD  output,  and  Tapes  6,7,  and  8 
are  used  for  binary  output  over  the  course  of  a  run  (including  regeneration) 
Since  Tape  4  output  is  normally  switched  to  the  typewriter,  only  four  out- 
put tapes  are  needed  in  the  course  of  a  run.    The  three  binary  tapes 
(6,7,8)  will  be  rewound  at  the  end  of  the  run,  and  may  be  used  without 
further  action.    An  END  OF  FILE  mark  must  be  placed  on  the  end  of  Tape  3 
before  printing. 

SUBROUTINE  SITE  (M) 
BOX  31 

This  short  subroutine  calculates  the  fixed  point  co-ordinates  of 
the  lattice  site  given  as  an  input  parameter.    The  co-ordinates  are  found 
in  IB  (1-3)  after  exit  from  the  subroutine. 

SUBROUTINE  INVAC  (MJ) 

This  subroutine,  given  the  number  of  an  atom,  either  places  the  atom 
on  a  vacant  lattice  site  near  it,  or  forms  an  interstitial  pair  with  one  of 
its  nearest  neighbors . 
BOX  32 

The  initial  indicator  IN2  is  set  to  zero ,  and  the  input  atom  is 
changed  to  number  MM.    The  site  number  occupied  by  MM,  and  the  fact 
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that  MM  is  on  the  LATER  list  are  now  cleared  from  LB  (MM),  and  the 
fact  that  MM  has  gone  through  INVAC  is  set  in  LB  (MM) . 

Atom  MM's  co-ordinates  are  now  inspected  to  see  whether  or  not  MM 
is  within  one  unit  of  a  face  of  the  lattice.    If  so,  the  number  of  this  face 
is  stored  in  IFACE  (1-3) ,  and  the  indicator  NIF  is  increased.    The  index 
of  IFACE  is  1 ,  2,  or  3,  depending  on  whether  the  face  is  in  the  X,  Y,  or 
Z  direction,  respectively. 

The  co-ordinates  of  MM  are  rounded  off,  and  the  fixed  point  co- 
ordinates of  the  nearest  site  (or  non-site)  are  found. 
BOX  33 

We  must  now  determine  which  of  the  two  general  cases  we  have.,  site 
or  non-site,  and  if  IFACE  (1-3)  is  non-zero,  which  of  the  12  special 
cases  we  are  to  consider.    If  the  sum  of  the  three  fixed  point  co-ordinates 
is  even,  then  they  designate  a  lattice  site,  and  JM  is  set  to  1 .    If  the 
sum  is  odd,  then  a  non-site  is  designated,  and  JM  is  set  to  zero.    The 
sum  of  the  Y  and  Z  co-ordinates  is  then  checked.    If  odd,  JL  =  0 ,  and  if 
even,  JL  =  -1.    If  the  indicator  MOVE  is  non-zero,  a  RETURN  to  the  main 
program  is  executed. 

The  formula  for  IL  (the  site  number)  results  in  an  X  co-ordinate 
one  less  or  one  more  than  an  actual  site  for  the  non-site  case.    The  sum 
of  JL  and  JM  determine  which  case.    If  the  sum  is  -1 ,  then  one  is  added 
to  IL. 

At  this  point,  IL  is  always  either: 

1)  The  site  of  the  rounded  off  position  of  MM,  or 
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2)  The  site  with  X  co-ordinate  one  larger  than  MM's  rounded-off 
position. 
The  possible  special  case  is  now  determined.    If  IFACE  (1-3)  ^  0,  then 
JB  is  set  equal  to  the  face  number  with  JD  =  1.    If  more  than  one  IFACE 
is  non-zero,  MISTAKE  (2)  is  increased,  since  this  means  a  position  along 
an  edge  or  corner  of  the  lattice . 

In  either  case,  if  IFACE  (1-3)  9^0,  then  JA  is  non-zero,  and  JC  is 
set  equal  to  1 .    If  IFACE  (1-3)  is  zero,  then  JC  =  JM  (either  1  or  0) . 
JB  is  set  equal  to  the  first  non-zero  IFACE     or  to  zero  if  IFACE  (1-3) 
is  zero.    JD  is  then  set  to  1  if  a  non-zero  IFACE  exists,  and  to  zero 
otherwise . 

The  case  number  (1-14)  is  now  established  by  the  formula: 
JW  =  (JM*6*JD)  +  1  +  JB  +  JC.    Cases  1  &  2  are  the  general  cases. 
Cases  3-8  are  special  forms  of  case  1,  with  cases  9-14  as  special 
forms  of  case  2.    These  special  cases  simply  eliminate  some  of  the 
nearest  neighbors  found  in  the  general  case  from  consideration. 

The  lists  MOON  and  NOON  are  set  to  zero ,  and  the  next  box  is 
entered . 
BOX  34 

The  first  section  (down  to  Statement  2451)  is  a  section  of  computed 
GO  TO  statements  to  insure  the  correct  choice  of  the  nearest  neighbor 
formulas.    The  second  section  places  the  site  numbers  of  the  nearest 
neighbor  positions  on  the  MOON  list,  provided  their  numbers  lie  between 
one  and  MAXLAT.    I  is  the  index  used  for  the  MOON  list,  and  is  always 
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one  greater  than  the  number  of  sites  on  the  listo 
BOX  35 

All  of  the  nearest  neighbor  numbers  found  may  not  have  been  placed 
on  the  MOON  list  (possible  negative  numbers ,  or  numbers  greater  than 
MAXLAT) .    JPMAX,  therefore,  is  reset  to  (1-1) .    If  the  indicator  MOVE  is 
non-zero,  a  RETURN  to  the  main  program  is  executed. 

The  LB  for  each  atom  whose  site  is  on  the  MOON  list  is  now  in- 
spected.   If  the  LB  shows  that  the  site  is  not  occupied  (see  APPENDIX  I) , 
the  site  number  is  placed  on  the  NOON  list.    JP  is  the  index  used  for  the 
NOON  listo 

The  MOON  list,  then,  is  a  list  of  the  sites  of  the  nearest  neighbors, 
and  the  NOON  list  is  a  list  of  those  nearest  neighbor  sites  that  are  vacant 
sites,  with  JK  the  number  of  vacancies  on  the  NOON  list. 
BOX  36 

If  JK  =  1 ,  then  only  one  vacancy  exists  ,  and  atom  MM  is  placed 
there,  the  site  number,  IL,  is  set  in  LB  (MM) ,  and  the  fact  that  the  site 
is  now  occupied  is  stored  in  LB  (IL) .    If  IN2  is  zero,  a  RETURN  is  then 
executed,  otherwise  a  jump  to  BOX  39  (Statement  2800)  is  executed. 

If  JK  is  zero,  there  are  no  vacancies  and  a  prospective  interstitial 
partner  must  be  found.    If  IN2  is  zero,  a  jump  to  BOX  38  is  made  to 
accomplish  this.    If  IN2  is  non-zero,  then  MM  is  the  prospective  inter- 
stitial partner  of  the  original  atom  MJ ,  and  a  jump  is  made  to  BOX  39  to 
form  the  interstitial. 
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If  JK  >  1 ,  then  more  than  one  vacancy  exists .    A  jump  is  made  to 
BOX  37,  where  one  of  the  vacancies  is  chose,  a  return  to  this  box  is  then 
made,  and  the  procedure  given  for  JK  =  1  is  followed. 
BOX  37 

The  (distance)     between  atom  MM  and  the  vacant  sites  on  the  NOON 

2 
list  is  computed  and  stored  in  the  DSTANCE  array  <>    The  minimum  (distance) 

is  then  found,  and  the  DSTANCE  list  is  inspected  to  find  the  number  of 

sites  that  are  at  this  minimum  distance  from  atom  MM.    If  there  is  only 

one,  IL  is  set  equal  to  that  site,  and  a  jump  is  made  to  Statement  2492  in 

BOX  36.    If  there  is  more  than  one,  MM  is  placed  on  its  own  site,  if  its 

own  site  is  one  of  those  on  the  list.    If  not,  then  MM  is  placed  on  the 

first  or  second  site  on  the  NOON  list,  depending  on  whether  the  number 

of  the  time  step  is  odd  or  even,  respectively. 

The  number  of  the  time  step  is  used  here  as  a  convenient  random 
number  generator,  since  the  decision  is  made  on  oddness  or  evenness, 
rather  than  the  actual  value  of  the  number  itself. 
BOX  38 

This  box  is  entered  only  from  BOX  36,  and  then  on  the  condition  that 
IN2  is  zero  and  that  MM  (MJ)  has  found  no  vacancies.    A  prospective 
interstitial  partner  must  be  chosen  from  the  MOON  list. 

The  time  of  atom  MM's  (MJ's)  closest  approach  to  each  of  the  sites 
listed  on  the  MOON  list  is  found  and  stored  in  the  TMIN  list.  Any  sites 
occupied  by  interstitial  pairs  are  not  considered. 
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The  minimum  time  of  closest  approach  is  then  found ,  TMIN  (KMIN) , 
which  locates  the  prospective  interstitial  site.    MAX  is  derived  from 
A  X,   AY,  or   AZ,  whichever  is  greatest  (AX  =  X  co-ordinate  of  MM 
minus  X  co-ordinate  of  the  site  chosen) ,  and  this  becomes  the  prospective 
axis  of  the  interstitial  pair.    The  atom  occupying  this  site  is  then  found. 
Since  it  is  possible  for  this  atom  to  be  pushed  into  any  vacancy  near  it, 
and  MM  to  fall  into  the  vacancy  thus  created,  this  atom's  nearest  neigh- 
bors must  be  inspected.    This  is  done  by  setting  MM  equal  to  the  number 
of  this  atom,  setting  IN2  to  1,  and  jumping  to  Statement  2361  in  BOX  32. 
BOX  39 

If  the  new  MM  (the  original  atom  is  still  designated  by  MJ)  does  find 
a  vacancy,  it  is  placed  there  in  BOX  36,  a  jump  is  made  to  this  box,  MM's 
now  vacant  site  is  named  as  the  prospective  site  for  MJ,  a  return  to 
BOX  36  is  made,  and  MJ  is  placed  on  its  prospective  site.    A  RETURN  to 
the  main  program  is  then  executed  in  BOX  36. 

If,  however,  the  new  MM  did  not  find  a  vacant  site,  then  a  jump  is 
made  to  this  box  (Statement  2720) ,  and  the  interstitial  is  actually  formed. 
The  site  of  the  interstitial  is  entered  in  each  LB ,  together  with  the  other 
atom's  number.    The  fact  that  the  site  is  occupied  is  then  entered  in  the 
LB  of  the  site,  and  a  RETURN  is  executed. 

If  the  new  MM  equals  MJ,  then  the  atom  has  formed  an  interstitial 
with  itself,  and  the  error  counter  MISTAKE  (4)  is  increased.  The  inter- 
stitial is  formed  so  that  MJ  is  on  the  same  side  as  it  was  before  forma- 
tion of  the  interstitial  pair. 
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SUBROUTINE  INTER  (MQ ,  II,  S) 

This  subroutine,  given  the  atom  under  consideration  (MQ) ,  the 
target  atom  (II) ,  and  the  impact  parameter  (S ,  in  meters)  calculates  the 
positions  of  the  atoms  at  the  end  of  the  collision,  their  velocities,  and 
energies  and  stores  them  in  the  DEV  array  „ 
BOX  40 

Transforms  atom  MQ's  position  co-ordinates,  velocity  components, 
and  energy  and  the  angle  between  the  radius  vector  from  atom  II  to 
atom  MQ  and  MQ's  velocity  into  the  target  (atom  II)  frame  of  reference. 
Sets  CPA  =  SPHI  as  the  initial  value  for  the  CPA  iteration. 
BOX  41 

Computes  CPA  by  an  iterative  process.    The  iteration  is  terminated 
when  two  successive  values  differ  by  less  than  10~4  %,  or  when  any 
value  is  greater  than  the  preceeding  value. 
BOX  42 

Computes  the  time  required  for  the  interaction  and  the  total  angle 
of  deviation.    The  integrals  are  solved  by  numerical  integration  using  a 
Gauss-Legendre  four  point  quadrature . 
BOX  43 

Computes  the  composite  factors  and  trigonometric  functions  that  are 
used  more  than  once  in  the  transformation  to  the  laboratory  reference 
frame . 
BOX  44 

Computes  direction  cosines,  relative  to  the  laboratory  frame  of 
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reference,  of  a  line  in  the  plane  of  the  interaction  that  is  perpendicular 
to  the  line  between  the  two  atoms  at  the  beginning  of  the  interaction. 
BOX  45 

Computes  the  position  co-ordinates ,  velocity  components ,  and 
energies  of  both  atoms  and  stores  them  in  the  DEV  array.    See  APPENDIX  I, 
DEV  for  the  actual  location. 

PROGRAM  SLAVE 
BOX  1 

Reads  binary  input  from  Tape  8.     "SET  SLJ  SWITCH  2  UP  IF  NEEDED" 
is  written  on  Tape  3  (normally  transferred  to  the  typewriter) .    As  many 
comment  cards  (80  spaces  per  card)  as  desired  (6  at  present)  are  read 
from  Tape  2  and  written  on  the  output  tape.    Reads  input  parameters  for 
the  run  from  Tape  2„    Writes  on  the  output  tape  "SELECTIVE  JUMP  SWITCH 
NUMBER  TWO  WAS  UP"  if  Jump  Switch  2  is  used  for  the  run. 

IHISTO  (1-4)  and  IHISTO  (105)  are  defined,  the  IHISTO  array  then 
serves  as  the  format  specification  for  the  histographs.    The  constants 
I2E15,  I2E24,  F2E24,  and  I2E30  are  set,  and  the  masks  for  use  with  the 
LB  array  are  defined. 
BOX  2 

If  NTS  (called  N  in  PROGRAM  MASTER,  the  number  of  time  steps 
completed)  is  zero,  then  NTS  is  set  equal  to  MNTS;  other  constants  and 
indicators  are  then  set.    The  times  in  the  TSLI  array  and  the  time  TSL 
are  converted  from  jiffys  to  seconds.    Various  portions  of  the  LB  array 
are  then  cleared,  depending  on  the  settings  of  the  jump  switches. 
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BOX  3 

In  this  box  all  atoms  are  placed  in  one  of  the  following  classifica- 
tions: 

1)  Atoms  occupying  their  original  sites , 

2)  Atoms  occupying  sites  other  than  their  original  sites  , 

3)  Atoms  that  are  parts  of  interstitial  pairs , 

4)  Atoms  whose  energy  is  greater  than  ETHRESH,  and 

5)  Atoms  outside  the  lattice. 

Program  MASTER  has  also  calculated  the  face  of  exit  for  those  atoms  that 
have  left  the  lattice . 

The  number  of  atoms  and  the  total  energy  of  those  atoms  is  calculated 
for  each  classification,  as  is  the  number  of  vacant  lattice  sites. 
BOX  4 

The  total  number  of  atoms  and  their  total  energy  is  calculated. 
This  serves  as  an  additional  total  energy  check  at  the  end  of  the  compu- 
tational run.    These  numbers  and  various  other  data  (see  APPENDIX  III) 
are  written  on  the  output  tape.    The  number  of  atoms  and  their  total 
energy  is  written  on  the  output  tape  for  each  classification  listed  in 
BOX  3. 
BOX  5 

The  number  of  atoms  occupying  their  original  sites  is  written  on  the 
output  tape.    An  array  of  these  atoms  is  then  written,  in  order,  on  the  out- 
put tape.    Atoms  not  on  their  original  sites  are  represented  by  zeros  in 
this  array. 
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BOX  6 

The  total  number  of  vacant  lattice  sites  and  the  numbers  of  these 
sites  are  written  on  the  output  tape. 
BOX  7 

The  total  number  of  replacements  is  written  on  the  output  tape. 
The  number  of  the  atom,  the  number  of  its  final  site,  its  penetration, 
and  its  radial  penetration  are  written  on  the  output  tape  for  each  of 
the  replacement  atoms .    Histographs  are  then  compiled  and  written  on  the 
output  tape  for  the  penetration  and  the  radial  penetration  distributions 
of  the  replacement  atoms  . 
BOX  8 

The  total  number  of  interstitial  pairs  is  written  on  the  output  tape. 
The  number  of  each  atom  in  a  pair,  its  partner,  the  site  they  occupy,  the 
penetration  of  each  atom  in  the  pair,  and  the  radial  penetration  of  each 
atom  in  the  pair  is  written  on  the  output  tape»    This  is  written  twice  for 
each  interstitial  pair  since  there  are  two  atoms  in  the  pair.    Histographs 
are  compiled  and  written  on  the  output  tape  for  the  penetration  and  the 
radial  penetration  distributions  of  all  interstitial  pair  members. 

If  Jump  Switch  2  was  set  for  the  run ,  the  interstitials  are  determined 
by  inspecting  the  LB  array  given  by  program  MASTER.    If,  however,  Jump 
Switch  2  was  not  set,  the  program  disregards  the  LB  array  and  calculates 
the  interstitial  pairs  in  the  lattice . 
BOX  9 

The  total  number  of  atoms  with  energy  greater  than  ETHRESH 
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(knock-ons)  is  written  on  the  output  tape .    The  number  of  each  atom ,  its 
co-ordinates,  velocity  components,  energy,  its  LB  (in  octal),  its  pene- 
tration, and  its  radial  penetration  are  written  on  the  output  tape  for  each 
knock-on  atom.    Histographs  are  then  compiled  and  written  on  the  out- 
put tape  for  the  penetration ,  radial  penetration ,  and  energy  distributions 
of  the  knock-on  atoms  . 
BOX  10 

The  total  number  of  atoms  that  exited  through  a  lattice  face  is 
written  on  the  output  tape.    The  number  of  the  atom,  its  co-ordinates, 
its  velocity  components,  energy,  LB  (in  octal) ,  its  penetration,  radial 
penetration ,  and  time  step  of  exit  are  written  on  the  output  tape  for 
each  atom  exiting  through  a  face. 

The  entire  box  is  then  repeated  for  each  of  the  six  faces  of  the 
lattice . 
BOX  11 

If  Jump  Switch  1  is  set,  a  jump  is  made  to  the  end  of  the  program, 
otherwise  a  general  lattice  dump  is  written  on  the  output  tape.    The  dump 
consists  of  the  atom  number,  co-ordinates,  velocity  components,  energy, 
and  the  LB  contents  (in  octal)  for  each  atom . 

SUBROUTINE  ROUND  (L) 
BOX  12 

This  subroutine  computes  the  site  closest  to  atom  L.    The  atom's 
co-ordinates  are  rounded  off,  and  the  fixed  point  co-ordinates  of  the 
atom  are  stored  in  the  IB  array  if  the  co-ordinates  represent  a  site. 
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If  the  fixed  point  co-ordinates  do  not  represent  a  site,  the  six  nearest 
neighbor  sites  are  found.    The  site  that  is  closest  space-wise  to  the 
atom  is  chosen  as  the  site  for  atom  L.    Once  a  site  is  chosen,  a  RETURN 
to  the  main  program  is  executed. 

SUBROUTINE  INITIAL  (L) 
BOX  13 

If  atom  L  is  one  of  the  original  lattice  atoms ,  this  subroutine 
computes  its  initial  fixed  point  co-ordinates  and  stores  them  in  the  IB 
array.    If  atom  L  was  shot  into  the  lattice,  the  point  of  entry  is  stored 
in  the  IB  array.    A  RETURN  to  the  main  program  is  then  executed. 

SUBROUTINE  ECOUNT  (L) 
BOX  14 

The  energy  of  atom  L  is  inspected  „    This  energy  will  fall  between 
two  of  the  values  on  the  KET  list,  say  the  sixth  and  the  seventh  values 
on  the  list.    Atom  L's  energy  is  then  greater  than  the  sixth  (ith)  value 
on  the  list.    The  histograph  counter  IC  (I  +  50)  is  then  increased  by  one. 
A  RETURN  to  the  main  program  is  then  executed. 

SUBROUTINE  DEPTH  (L) 
BOX  15 

The  penetration  (DEPTH)  is  computed  as  the  final  X  co-ordinate  of 
atom  L  minus  the  initial  X  co-ordinate.    A  value  of  I  is  determined  so 
that  DEPTH  lies  between  A  (I  -7.5)  and  A  (I  -6.5) .    Histograph  counter 
IC  (I)  is  then  increased  by  one . 
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The  radial  penetration  (PERDIST)  is  then  calculated  from  L's  initial 
and  final  positions .    A  value  of  I  is  determined  so  that  PERDIST  lies  be- 
tween A  (I  -1)  and  A  (I) .    Histograph  counter  IC  (I  +  30)  is  then  increased 
by  one.    A  RETURN  to  the  main  program  is  then  executed. 

SUBROUTINE  HISTO  (NGROUPS) 
BOX  16 

The  largest  number  and  the  total  of  NUMBERS  (1  -NGROUPS)  are 
determined.    The  total  is  written  on  the  output  tape.    The  percentage  of 
the  total  is  written  on  the  output  tape  for  each  entry    on  the  NUMBERS 
list,  followed  by  a  number  of  X's  corresponding  to  the  percentage  this 
entry  is  of  the  largest  number  in  the  table,  i.e.  the  largest  number  will 
write  out  100  X's ,  and  a  number  half  that  large  will  write  out  50  X's . 
A  RETURN  to  the  main  program  is  then  executed . 

PROGRAM  RON 

This  program  writes  on  the  output  tape  the  successive  positions  of 
every  atom  in  the  lattice  (or  that  was  shot  into  the  lattice) ,  if  the  suc- 
cessive position  of  an  atom  is  significantly  different  from  the  previous 
position.  The  number  of  the  time  step  is  also  written  when  an  atom's 
co-ordinates  are  written.  After  writing  all  the  successive  positions  of 
an  atom,  the  program  commences  writing  the  positions  of  the  next  atom 
that  has  moved  significantly  until  all  atoms  have  been  considered. 
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